求院长的插件函数 (xyp-Start) 和xcad.vlx

xj6019

您好 这个可以给我一份吗 (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)
)