横截面帮助
向在座的各位大师致意：D.我试图在这里根据实地考察的书籍制作一个横截面。设法做到这一点。是否有lisp可以通过单击绿线自动创建显示与CL的标高和偏移的文本。
一幅画能说出千言万语。请看图片。提前感谢
https://www.cadtutor.net/file:///C:/DOCUME%7E1/Wengcon/LOCALS%7E1/Temp/moz-屏幕截图。巴布亚新几内亚https://www.cadtutor.net/file:///C:/DOCUME%7E1/Wengcon/LOCALS%7E1/Temp/moz-截图-1。巴布亚新几内亚
问题和答案是使用另一个程序创建的横截面吗？是否可以更改为自动添加额外值。
这里的答案是SURFACHERL的副本，只需将现有文本级别复制到新的垂直线run SRL，它以图形方式计算出答案，而不是根据我们发现的相邻值，其在计算值位的2-3mm范围内，具体取决于比例。
也可以修改以更改偏移值。
;Calculates level of a point in cross or long sections
(setvar "cmdecho" 0)
(princ "\n To run just type SRL")
;(defun c:SRL ()
(if (= dwgscale nil)
(setq dwgscale (/ 1000.0 (getreal "\n enter vertical scale ")))
)
(setq datum (getreal "\n Enter datum level -ve to reset vert scale "))
(if ( < datum 0.0)
(progn
(setq dwgscale (/ 1000.0 (getreal "\n enter vertical scale ")))
(setq datum (getreal "\n Enter datum level "))
)
)
(setq test 1)
(while (= test 1)
(setq pt1 (getpoint "\npick datum"))
(setq pt2 (getpoint "\npick point"))
(setq dist (/(distance pt1 pt2) dwgscale))
(setq en1 (car (entsel "\nSelect text number:" )))
(if (/= en1 nil)
(progn
(setq tent (entget en1))
(setq a (+ dist datum))
(setq a (rtos a 2 3))
(setq el (subst (cons 1 a) (assoc 1 tent) tent))
(entmod el)
);progn
(princ "\nplease pick again"); else
);if
); while t
(setq el nil)
(setq en nil)
(setq a nil)
(setq v1 nil)
(setvar "cmdecho" 1)
(princ)
;ends main defun
非常感谢BIGAL:D，
是的，横截面是使用Land Desktop 2k制作的。我可以生成横截面，但它只生成中心线标高。有没有办法克服这个问题？非常感谢。
然而，有一些工作我不得不手动将调查细节输入CAD。
你的节目真的为我节省了很多时间：震惊：再次非常感谢
页:
[1]