[编程申请]：一个偏移直线一定距离得到xline的程序

haibinpro

选择一条直线，
使用getdist方法，建构一xline和所选择的线平行，且两者的距离是整数（fix）

xyp1964

2. [FONT=courier new](defun c:test ()
   
3.   (CMDLA0)
   
4.   (if (null dist)
   
5.     (setq dist 100)
   
6.   )
   
7.   (setq        s1   (car (USEL 0 "LINE" "LINE线"))
   
8.         pt10 (xyp-get-dxf 10 s1)
   
9.         dist (UDIST 1 "" "距离<输入或鼠标直接量取>" dist nil)
   
10.         dist (fix dist)
    
11.         pt   (UPOINT 1 "" "点" PT pt10)
    
12.   )
    
13.   (setvar "OFFSETDIST" dist)
    
14.   (command "offset" "" s1 pt "")
    
15.   (setq        s1   (entlast)
    
16.         pt10 (xyp-get-dxf 10 s1)
    
17.         pt11 (xyp-get-dxf 11 s1)
    
18.   )
    
19.   (entdel s1)
    
20.   (command "xline" pt10 pt11 "")
    
21.   (CMDLA1)
    
22. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (CMDLA0)<br />   (if (null dist)<br />     (setq dist 100)<br />   )<br />   (setq        s1   (car (USEL 0 "LINE" "LINE线"))<br />         pt10 (xyp-get-dxf 10 s1)<br />         dist (UDIST 1 "" "距离<输入或鼠标直接量取>" dist nil)<br />         dist (fix dist)<br />         pt   (UPOINT 1 "" "点" PT pt10)<br />   )<br />   (setvar "OFFSETDIST" dist)<br />   (command "offset" "" s1 pt "")<br />   (setq        s1   (entlast)<br />         pt10 (xyp-get-dxf 10 s1)<br />         pt11 (xyp-get-dxf 11 s1)<br />   )<br />   (entdel s1)<br />   (command "xline" pt10 pt11 "")<br />   (CMDLA1)<br /> )[/FONT]

haibinpro

命令: 'VLIDE
命令:
命令: ss ; 错误: *error* 函数中出错无函数定义: REERR

(defun c:ss ()
  (CMDLA0)
  (if (null dist)
    (setq dist 100)
  )
  (setq        s1   (car (USEL 0 "LINE" "LINE线"))
        pt10 (xyp-get-dxf 10 s1)
        dist (UDIST 1 "" "距离<输入或鼠标直接量取>" dist nil)
        dist (fix dist)
        pt   (UPOINT 1 "" "点" PT pt10)
  )
  (setvar "OFFSETDIST" dist)
  (command "offset" "" s1 pt "")
  (setq        s1   (entlast)
        pt10 (xyp-get-dxf 10 s1)
        pt11 (xyp-get-dxf 11 s1)
  )
  (entdel s1)
  (command "xline" pt10 pt11 "")
  (CMDLA1)
)


;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun CMDLA0 ()
  (defun *error* (msg)
    (princ "错误 : ")
    (princ msg)
    (CMDLA1)
  )
  (SetQ        **SysVarNL**
         '("AUNITS"         "AUPREC"      "ATTDIA"             "BLIPMODE"
           "CECOLOR"         "CELTYPE"     "CLAYER"             "CMDECHO"
           "DIMZIN"         "EXPERT"      "HIGHLIGHT"   "LUNITS"
           "LUPREC"         "OSMODE"      "ORTHOMODE"   "TEXTSTYLE"
           "PLINEWID"         "dimdec"      "dimadec"     "regenmode"
           "pickbox"
          )
  )
  (SetIErr)
  (command "ucs" "")
  (xyp-jzhz)
  (command ".undo" "BE")
  (princ)
)
(Defun SetIErr (/ sv)
  (If (= 'LIST (Type *error*))
    (Alert "错误：最后一个(SetIErr)函数没有配对的(ReErr)!")
    (Progn
      (SetQ **svarl** '())
      (ForEach sv **SysVarNL**
        (SetQ **svarl** (Cons (GetVar sv) **svarl**))
      )
      (ForEach sv '("ATTDIA"           "BLIPMODE"          "CMDECHO"
                    "ORTHOMODE"           "DIMZIN"          "plinewid"
                    "regenmode"           "ucsfollow"
                   )
        (SetVar sv 0)
      )
      (setvar "ATTREQ" 1)
      (SetVar "EXPERT" 5)
      (setvar "pickbox" 5)
      (setvar "pickadd" 1)
      (setvar "aperture" 5)
      (Defun-Q *error* (st) (ReErr))
    )
  )
)


;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun xyp-get-DXF (code ename)
  (cdr (assoc code (entget ename)))
)

xyp1964

2. [FONT=courier new](load "xyp_lib.vlx")
   
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
6. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
7. ■3·在command下，输入(load"xyp_lib.vlx")
   
8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
   
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
12. [url]http://free.ys168.com/?xyp1964[/url]
    
13. |;
    
14. 
    
15. (defun c:test ()
    
16.   (CMDLA0)
    
17.   (if (null dist)
    
18.     (setq dist 100)
    
19.   )
    
20.   (setq        s1   (car (USEL 0 "LINE" "LINE线"))
    
21.         dist (fix (UDIST 1 "" "距离<输入或鼠标直接量取>" dist nil))
    
22.         pt   (UPOINT 1 "" "方向点" PT (xyp-get-dxf 10 s1))
    
23.   )
    
24.   (setvar "OFFSETDIST" dist)
    
25.   (command "offset" "" s1 pt "")
    
26.   (setq s1 (entlast))
    
27.   (command "xline" (xyp-get-dxf 10 s1) (xyp-get-dxf 11 s1) "")
    
28.   (entdel s1)
    
29.   (CMDLA1)
    
30. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib.vlx")<br /> ■2·在每个程序内增加(load"xyp_lib.vlx")<br /> ■3·在command下，输入(load"xyp_lib.vlx")<br /> ■4·在菜单.mnl中增加(load"xyp_lib.vlx")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> [url]http://free.ys168.com/?xyp1964[/url]<br /> |;<br /> <br /> (defun c:test ()<br />   (CMDLA0)<br />   (if (null dist)<br />     (setq dist 100)<br />   )<br />   (setq        s1   (car (USEL 0 "LINE" "LINE线"))<br />         dist (fix (UDIST 1 "" "距离<输入或鼠标直接量取>" dist nil))<br />         pt   (UPOINT 1 "" "方向点" PT (xyp-get-dxf 10 s1))<br />   )<br />   (setvar "OFFSETDIST" dist)<br />   (command "offset" "" s1 pt "")<br />   (setq s1 (entlast))<br />   (command "xline" (xyp-get-dxf 10 s1) (xyp-get-dxf 11 s1) "")<br />   (entdel s1)<br />   (CMDLA1)<br /> )[/FONT]

haibinpro

谢谢，能不能修改下，变成
在getdist时判断了偏移方向，省去给方向点的步骤。
另：我所选择的直线都是竖直线或水平线，故希望能实现通过dxf码获得直线的任一端点值，将之设置为getdist的基准。
程序相当实用，可以记录上次偏移的数值。

提个不情之请，能否做成不loadxyp_lib.VLX的。

对了，有个问题老早就想问了，
如果程序函数是定义成c:test
则有时会提示
分配给保护的符号：
c：test
是否进入中断循环？
最近经常出现，无论是lisplink还是visual lisp，有办法避免或忽略么？

问题的提出是，我为了方便测试程序，将test命令做成了按钮，但是如果老是提示这个东东，会有点烦。

命令: ap
APPLOAD 已成功加载 xyp_lib.VLX。


命令:
命令:
命令: ss
选择LINE线 :
距离<输入或鼠标直接量取><100.00>: 指定第二点:
方向点:
程序执行完毕!

命令: *取消*

命令: l LINE 指定第一点:
指定下一点或 [放弃(U)]:
指定下一点或 [放弃(U)]: *取消*

命令: ss
选择LINE线 :
距离<输入或鼠标直接量取><194.00>: 指定第二点:
方向点<1801.65, 1272.19, 0.00>:
程序执行完毕!

xyp1964

命令：tt1

haibinpro

要睡觉了，明天再试。

操作方式变了，程序变得通用了（最后才选线）不过对于我就不是很实用了，因为没法先选直线，获得其端点将之设置为getdist的基准。减小操作次数。

而有个问题就是，getdist时也关闭了捕捉，我得再启用一次。

在某些程序启用捕捉会导致问题，如果是按先选直线，获得将之设置为getdist的基准的方法，我估计应该是没问题的，事实上，不需要去修改捕捉设置。