本文主要是介绍陕西计算机cad证考试报名,我是自学的CAD现在想考试怎么去那报名考试 – 手机爱问...，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！
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)
)。收起
这篇关于陕西计算机cad证考试报名,我是自学的CAD现在想考试怎么去那报名考试 – 手机爱问...的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
