[编程申请] 单线变双线，谢谢了

jierc

楼主这要求下载一个钢结构工具箱就全解决了

ssyfeng

试试这个：

2. (defun c:ee (/ lynm obj getds)
   
3.   (vl-load-com)
   
4.   (if getds0
   
5.     (setq getds (getdist (strcat "\n>>>>>>请输入隔板厚度< 当前板厚：" (rtos getds0) " >：")))
   
6.     (setq getds (getdist "\n>>>>>>请输入隔板厚度< 默认 18mm >："))
   
7.   )
   
8.   (if (null getds0)
   
9.     (progn
   
10.       (if (null getds)
    
11.         (setq getds 18 getds0 getds)
    
12.         (setq getds0 getds)
    
13.       )
    
14.     )
    
15.     (progn
    
16.       (if (null getds)
    
17.         (setq getds getds0)
    
18.         (setq getds0 getds)
    
19.       )
    
20.     )
    
21.   )
    
22.   (if (ssget '((0 . "Arc,Circle,Ellipse,*Line")))  
    
23.     (vlax-for obj (vla-get-activeselectionset
    
24.                      (vla-get-activedocument (vlax-get-acad-object))
    
25.                   )
    
26.       (vla-offset obj (* 0.5 getds))
    
27.       (vla-offset obj (* 0.5 getds -1))
    
28.       (vla-Delete obj)
    
29.     )
    
30.   )   
    
31. (princ)
    
32. )

(defun c:ee (/ lynm obj getds)<br />   (vl-load-com)<br />   (if getds0 <br />     (setq getds (getdist (strcat "\n>>>>>>请输入隔板厚度< 当前板厚：" (rtos getds0) " >：")))<br />     (setq getds (getdist "\n>>>>>>请输入隔板厚度< 默认 18mm >："))<br />   )<br />   (if (null getds0) <br />     (progn <br />       (if (null getds)<br />         (setq getds 18 getds0 getds)<br />         (setq getds0 getds)<br />       )<br />     )<br />     (progn <br />       (if (null getds)<br />         (setq getds getds0)<br />         (setq getds0 getds)<br />       )<br />     )<br />   )<br />   (if (ssget '((0 . "Arc,Circle,Ellipse,*Line")))  <br />     (vlax-for obj (vla-get-activeselectionset<br />                      (vla-get-activedocument (vlax-get-acad-object))<br />                   )<br />       (vla-offset obj (* 0.5 getds))<br />       (vla-offset obj (* 0.5 getds -1))<br />       (vla-Delete obj)<br />     )<br />   )   <br /> (princ)<br /> )

再见熊猫衣服

ssyfeng 发表于 2018-12-20 14:55
试试这个：

; 错误: LOAD 失败: C:/Users/Administrator/Desktop/11.lsp

命令:ee
未知命令“ee”。按 F1 查看帮助。
——————
测试无效

再见熊猫衣服

ssyfeng 发表于 2018-12-27 08:37
应该是复制时格式不对，我还是上传文件吧

非常感谢，

xfjiamy

再见熊猫衣服 发表于 2018-12-28 00:38
非常感谢，

使用没发现错误