关于要点需要帮助
我有一个AutoCAD平面图，大约有1000个点。我想沿着各个点显示一个sl.编号，然后生成一个包含点编号及其坐标的excel文件。我对AutoCAD很陌生。谁能给我详细的程序怎么做？？提前感谢 我注意到很多次关于这个问题的讨论，所以在论坛上搜索“分数编号”应该会给你很多选择；一个AutoLISP例程将为您提供预期的结果，稍后可以很容易地调整为以CSV（用于Excel）格式导出。也许还想看看李·麦克提供的工具。 给它一个go，期望文本样式为pick pt，默认ht=0，而不是预设
(defun pt2txt ( / ss x y z lineans)
(setq ss (ssget "x"(list (cons 0 "Point"))))
(setq fout (open "C:/temp/pt2txt.csv" "w"))
(setq I 0)
(repeat (sslength ss)
(setq pt (assoc 10 (entget (ssname ss I))))
(setq x (nth 1 pt))
(setq y (nth 2 pt))
(setq z (nth 3 pt))
(setq lineans (strcat (rtos (+ I 1) 2 0) "," (rtos x 2 3) "," (rtos y 2 3) "," (rtos z 2 3)))
(princ lineans)
(command "text" (list x y z ) 2.5 0 lineans ) ;pt x y z
;(command "text" (list x y z ) 2.5 0 (rtos I 2 0) ) ; pt numb only
(write-line lineans fout)
(setq I (+ I 1))
) ; repeat
(close fout)
(princ)
)
(pt2txt)
页:
[1]