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

jierc 发表于 2018-12-20 10:28:24

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

ssyfeng 发表于 2018-12-20 14:55:46

本帖最后由 ssyfeng 于 2018-12-20 17:19 编辑

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

再见熊猫衣服 发表于 2018-12-26 21:29:59

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


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

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

再见熊猫衣服 发表于 2018-12-28 00:38:06

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

非常感谢，

xfjiamy 发表于 2019-1-11 23:18:48

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

使用没发现错误

查看完整版本: [编程申请] 单线变双线，谢谢了