求院长的插件函数 (xyp-Start) 和xcad.vlx
您好 这个可以给我一份吗 (xyp-Start) 和xcad.vlx谢谢！！！ xcad.vlx这个是可以解决 不能加载vla函数的吗
他们说缺少这个插件
以下代码运行的时候提示缺少(xyp-Start)
;; tt(break)
(defun c:tt ()
(xyp-Start)
(princ "\n选择直线: ")
(setq i -1)
(if (setq ss (ssget '((0 . "*LINE"))))
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq ptn (xyp-Get-CurveIntersLeng s1 4)
ptn (xyp-Curve-PtsLengSort s1 ptn t)
j -1
)
(while (and (setq p1 (nth (setq j (1+ j)) ptn))
(setq p2 (nth (setq j (1+ j)) ptn))
)
(xyp-breakE s1 p1 p2)
)
)
)
(xyp-End)
)
安装院长工具箱就有了
这样理解试试
(Defun cmdla0();xyp-Start
(SETQ cmdech202404(Getvar "Cmdecho");设置回显提示和输入
oom202404(Getvar "Orthomode");设置正交模式
osm202404(Getvar "Osmode");设置捕捉模式
la202404(Getvar "Clayer");设置当前层
rmode202404(getvar "regenmode")
pw202404(getvar "plinewid")
)
;(if(null sc)
; (SETBL);xyp-SetBL 设置出图比例(xyp-SetBL)目前还没有院长发布的这个自定义函数，还期待已经收集了的大侠分享一下
;) ;确认SC存在
(setvar "DIMZIN" 1);设置DIMZIN的值为1，否则小数末尾为0会被抹掉(断点)
(Setvar "Cmdecho" 0);控制在 AutoLISP命令函数运行时是否回显提示和输入。
(Setvar "Regenmode" 0);控制图形的自动重生成
(command "ucs" "") ;恢复世界坐标系统
(setvar "plinewid" 0) ;多义线宽→0
(princ)
)
;;;------------------------ CMDLA1 -------------------------
;;; 恢复用户系统变量
;;;方式 :(CMDLA1)
;;; 恢复原有系统变量xyp-end
(Defun cmdla1();(/ cmdech202404 LA202404 oom202404 osm202404)
(Setvar "Cmdecho" cmdech202404)
(Setvar "Clayer" LA202404)
(Setvar "Orthomode" oom202404)
(Setvar "Osmode" osm202404)
(setvar "plinewid" pw202404)
(setvar "regenmode" 1)
(Terpri)
(Princ)
)
页:
[1]