摆直线.lsp

来自「用cad进行二次开发」· LSP 代码 · 共 16 行

(defun newline( )
 (graphscr)
 (setq ss (entsel "\n请用点选择需要修改的直线"))
 (setq ee (car ss))
 (setq aa (entget ee))
 (setq p (getstring"\n把直线摆正成水平(s)/垂直(c):(s/c?)")) 
 (setq c1 (getpoint "\n 请输入新起点"))
 (setq aa (subst (list 10 (car c1) (cadr c1) 0) (assoc 10 aa) aa))   
 (setq d1 (getpoint "\n 请输入新终点"))
   (cond
     ((= p "s") (setq aa  (subst (list 11 (car d1) (cadr c1) 0) (assoc 11 aa) aa)))
     ((= p "c") (setq aa  (subst (list 11 (car c1) (cadr d1) 0) (assoc 11 aa) aa)))
     )
 (entmod aa)
)