问题和答案是使用另一个程序创建的横截面吗？是否可以更改为自动添加额外值。
这里的答案是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
| 
置顶卡
