陕西计算机cad证考试报名,我是自学的CAD现在想考试怎么去那报名考试 – 手机爱问...

b7a85014ec7813f327e04b420be8d1c8.png

2014-09-05

怎么让CAD里面的点显示高程(GPS

先将你的数据按每行为 点名,x,y,z 的格式用记事本存为point。csv放在D:\下。如果是excel档且为四列数据那可直接另存为CSV档。

然后将一下代码用记事本存为poi。lsp 后加载运行即可。

(defun c:poi()

(setq osm (getvar "osmode"))

(setvar "osmode" 0)

(command "STYLE" "ZDBH" "" "" 0。 65 0。0 "" "" "")

;;;;;;;;;

(setq txtdate '((0 。 "TEXT") (5 。 "46D1") (100 。 "AcDbEntity")

(6...全部

先将你的数据按每行为 点名,x,y,z 的格式用记事本存为point。csv放在D:\下。如果是excel档且为四列数据那可直接另存为CSV档。

然后将一下代码用记事本存为poi。lsp 后加载运行即可。

(defun c:poi()

(setq osm (getvar "osmode"))

(setvar "osmode" 0)

(command "STYLE" "ZDBH" "" "" 0。

65 0。0 "" "" "")

;;;;;;;;;

(setq txtdate '((0 。 "TEXT") (5 。 "46D1") (100 。 "AcDbEntity")

(67 。

0) (8 。 "TEXT-J") (100 。 "AcDbText") (10 9330。57 45057。9 2。90846e-017)

(40 。 300。0) (1 。 "1C1B(01)") (50 。

0。0) (41 。 0。7) (51 。 0。0) (7 。 "ZDBH")

(71 。 0) (72 。 0) (11 10036。3 44957。9 2。90846e-017) (210 0。

0 0。0 1。0) (100 。

"AcDbText") (73 。 0)))

;;;;;;;;

(setq lid (open "d:\\point。

csv" "r"))

(while (setq pn (read-line lid))

(setq lind pn)

(setq at (pofs lind ","))

(setq z1 (atof (substr lind (+ 1 at))))

(setq lind (substr lind 1 (- at 1)))

(setq at (pofs lind ","))

(setq y1 (atof (substr lind (+ 1 at))))

(setq lind (substr lind 1 (- at 1)))

(setq at (pofs lind ","))

(setq x1 (atof (substr lind (+ 1 at))))

(setq pd (list x1 y1 z1))

(command "point" pd)

(setq TXTdate (subst (cons 1 pn) (assoc '1 TXTDate) TXTdate))

(setq TXTdate (subst (cons 10 pd) (assoc '10 TXTdate) TXTdate))

(setq TXTdate (subst (cons 11 (list 0 0 z1)) (assoc '11 TXTdate) TXTdate))

(entMAKE txtdate)

)

( close lid)

(setvar "osmode" osm)

)

(DEFUN PofS(Soutxt subtxt / kk TLEN TPTXT tnb as)

(SETQ TLEN (STRLEN Soutxt))

(SETQ kk 1)

(SETQ as nil)

(SETQ stn (ascii subtxt))

(WHILE (<= kk TLEN)

(SETQ TPTXT (SUBSTR Soutxt kk 1))

(SETQ tnb (ascii TPTXT))

(if (= stn tnb) (setq as kk))

(SETQ kk (+ 1 kk))

)

(setq as as)

)。收起

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

表情包
插入表情
评论将由博主筛选后显示,对所有人可见 | 还能输入1000个字符
©️2021 CSDN 皮肤主题: 数字20 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值