[LISP程序]：练习 中心线双偏置

791221ni

;;;我做的一个双偏置练习,请高手指点,谢谢~
(defun c:pz(/ dist2 ent1 ent2 Option)
(if (not dist1)
(progn (princ "\n请输入偏移单边距离<默认距离为1mm>:")
(setq dist2 (getdist))
(if (not dist2)
(setq dist2 1)
(setq dist1 dist2)
)
)
(progn (princ (strcat "\n请输入偏移单边距离<默认距离为" (rtos dist1) "mm>:"))
(setq dist2 (getdist))
(if(not dist2)
(setq dist2 dist1)
(setq dist1 dist2)
)
)
)
(while (setq ent1 (car (entsel "\n请选择偏移对象或<退出>：")))
(setq ent2 (vlax-ename->vla-object ent1))
(if (vlax-method-applicable-p ent2 'offset)
(progn
(vla-offset ent2 dist1)
(vla-offset ent2 (- 0 dist1))
(initget "Yes No Delete")
(if (progn (princ "\n是否将中间线改为中心线？(Yes/No)或者删除(Delete)：")
           (not (setq Option (getkword)))
     )
    (setq Option "No")
)
(cond
    ((= Option "Yes")(VLA-PUT-Linetype ENT2 "CENTER")(VLA-PUT-color ENT2 acred))
    ((= Option  "Delete")(vla-delete ENT2))
)
)
(progn
(princ "\n你选择的对象不能偏移！")
)
)
)
(princ)
)

szly1983

"错误: no function definition: VLAX-ENAME->VLA-OBJECT"

791221ni

你是CAD哪个版本的,请扩展加载看下(vl-load-com)