Question

谁可以帮我改改这个CAD LSP

(defun c:tt () (setvar "CMDECHO" 0) (if (and (setq r (getdist "\n半径 :")) (setq pt (getpoint "\n插入点 :")) (setq pta (getpoint pt "\n另一点 :")) ) (progn (setq ang (angle pt pta) di (distance pt pta) ptb (polar pt ang r) pt1 (polar ptb (+ ang (/ pi 2)) r) pt2 (polar pt1 ang (- di (* r 2))) pt3 (polar ptb (+ ang (/ pi -2)) r) pt4 (polar pt3 ang (- di (* r 2))) ) (command "_.PLINE" "non" pt1 "non" pt2 "A" "non" pt4 "L" "non" pt3 "A" "CL") ) ) (setvar "CMDECHO" 1) (princ) )是个画长圆孔的程序。想求人改一下，将长圆孔的长度值（即程序中： \n插入点 :" 到 \n另一点 :" 之间的距离）改为圆孔两圆心间的距离。另外， (if (and (setq r (getdist "\n半径 :"))可不可以加个默认数值。谢谢

Answer 1

你的高程点是不是有重合点，或者是高程注记与高程点的值是否一致
生成三角网的时候，是不是所有高程点都参与组网？（如果没有，就不用往下查了）
三角网改动过后有没有 “修改结果存盘”

不是gc200，cass就不能识别……学习了

追问

程序不是我写的，你提到的那些专业问题，我完全不知所云，惭愧。请问，你可以帮我改改么