lisp标定高程_晓东CAD家园-论坛-A/VLISP-[LISP程序]：指定基点自动标高程自动区分左右向，能用，编得有点粗糙-;智能标高程序(defun c:bg() (default_date)...

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有帐号？立即注册

x

;智能标高程序

(defun c:bg()

(default_date)

(setq p0 (getpoint "\n指定基点:"))

(setq h0 (getreal "\n基点高程:"))

(setq scal (getreal "\n输入比例:<100>"))

(if (= scal nil) (setq scal 100))

(setq xsw (getreal "\n输入小数保留位数:<3>"))

(if (= xsw nil) (setq xsw 3))

(setq p1 p0)

(while (/= p1 nil)

(resume_date)

(setq

p1 (getpoint "\n指定标注点:")

dh (/ (- (cadr p1) (cadr p0)) scal)

h1 (+ h0 dh)

)

(change_date)

(fh)

)

)

;******************************************************************

(defun fh()

(setq a (*