[分享]：【实用程序汇总】test000系列！

zxcvbnm-cad

xyp
能不能把【实用程序汇总】里的程序拿出来单个使用

完全可以。By xyp1964[/COLOR]

li809

楼上费心了，很都有了，能否分成若干个小文件呢，有的了，就不用下了

[php]
可以分开，但要保证能或已加载xyp_lib程序。
不过下载一次应该较方便，可以保持“原滋原味”。 by xyp1964
[/php]

zxcvbnm-cad

那我把程序单独提出来就不能用,是不是还要把程序改一改?
如画箭头
命令: test101
; 错误: no function definition: CMDLA0


解决方案：
利用以下任何一种方式即可运行该程序内所有子程序   
1.在每个程序内增加(load"xyp_lib.lsp")                       
2.在acad.lsp中增加(load"xyp_lib.lsp")                       
3.在command下输入(load"xyp_lib.lsp")
By xyp1964
[/COLOR]

熊哥哥

好东西刚学还不会用

dongfgng

1.在每个程序内增加(load"xyp_lib.lsp")

不明白,加在哪里?

如果要单独使用每一个test系列内的程序，又不想采用其他办法加载通用程序，可以采用以下格式：
(load"xyp_lib.lsp")
(defun c:test???()
……
……
)
by xyp1964
[/COLOR]

moonshine808

适用啊,谢谢

bfm

2000应怎么加载啊？

按1楼方法应该可以加载。 -- by xyp1964[/COLOR]

moonshine808

一楼的东东不能用。

有什么问题或现象？ by xyp1964[/COLOR]

dongfgng

xyp
test104角平分线
命令:
_AUT
  E:\角平分线.LSPhas been loaded.
选择对象:
选择对象: no function definition: DXF
命令:

下面是从实用程序汇总里复制的
要增加:(load"xyp_lib") by xyp1964[/COLOR]
[php](load"xyp_lib")
;;;角平分线
(defun c:test104()
  (setq        s1   (entget (car (entsel)))
        s2   (entget (car (entsel)))
        pt1  (dxf 10 s1)
        pt2  (dxf 11 s1)
        pt3  (dxf 10 s2)
        pt4  (dxf 11 s2)
        ang1 (angle pt1 pt2)
        dist (distance pt1 pt2)
        ang2 (angle pt3 pt4)
        pt5  (inters pt1 pt2 pt3 pt4 nil)
        pt6  (polar pt5 ang1 dist)
        pt7  (polar pt5 ang2 dist)
        pt8  (_midp pt6 pt7)
  )
  (command "line" pt5 pt8 "")
  (command "array" "L" "" "p" pt5 "2" "90" "Y")
  (princ)
)[/php]

新版本会修改成以下方式： by xyp1964[/COLOR]
[php](load "xyp_lib")
;;;两线之角平分线
(defun c:test104 ()
  (cmdla0)
  (setq        s1    (usel 0 "LINE")
        s2    (usel 0 "LINE")
        pt1   (cadr s1)
        pt2   (cadr s2)
        pt3   (_midp pt1 pt2)
        pt-12 (inters (dxf 10 (entget (car s1)))
                      (dxf 11 (entget (car s1)))
                      (dxf 10 (entget (car s2)))
                      (dxf 11 (entget (car s2)))
                      nil
              )
  )
  (if pt-12
    (progn
      (command "dimangular" s1 s2 pt3)
      (setq s3 (entlast)
            pt (osnap pt3 "mid")
      )
      (command "erase" s3 "")
      (command "line" pt-12 pt "")
    )
    (princ "\n两线平行，不存在角平分线！")
  )
  (cmdla1)
)[/php]

[I]xyp
再麻烦你一次
如果我想把别的程序加到实用程序汇总里又该如何
                        
                      谢谢[/I]

moonshine808

就是提示没响应,命令找不到啊

1楼的只是通用函数，下载2楼的test系列程序和菜单！by xyp1964[/COLOR]

xiaochongcn

老大，你别成天更新吖。
我们都跟不上啊。。。。
适当休息休息了。

如果嫌麻烦可以不下载；如果嫌更新太快，一年半载下载一次也完全可以（似乎1个月前刚下载过一次）。呵呵……
其实只要下载后覆盖原文件就搞定了！by xyp1964[/COLOR]

tchaikovsky

不错·

hojing7

受益良多努力学习中
感谢你的分享

zhoujiping

对我很有用

lwliweihappy

这种无私奉献和为大家服务的精神真是太值得表扬和学习了哈