...的距离或者道路中线来计算坡度并标注的LSP插件?

(defun c:nn (\/ a a1 d dx dy i os p1 p2 pmid str stri)(princ "\\n欢迎使用坡度标注程序！ gysjy 2009.6.27. ")(command "undo" "g")(setq os (getvar "osmode"))(setvar "osmode" 1)(initget "G S")(setq k (getkword "\\n[百分率(G)\/比例(

CAD自动根据标注的标高和标高之间的距离或者道路中线来计算坡度并标注的...

(defun C:podu ()(setq p1 (getpoint "选择第一点: "))(setq p2 (getpoint "选择第二点: "))(setq Delta_X (- (car p1) (car p2)))(setq Delta_Y (- (cadr p1)(cadr p2)))(setq slope (\/ (* (abs Delta_Y) 100) (abs Delta_X)))(princ "\\nSlope= ")(princ slope...