明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
12
返回列表 发新帖

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

[复制链接]
发表于 2018-12-20 10:28 来自手机 | 显示全部楼层
楼主这要求下载一个钢结构工具箱就全解决了
回复

使用道具 举报

发表于 2018-12-20 14:55 | 显示全部楼层
本帖最后由 ssyfeng 于 2018-12-20 17:19 编辑

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


回复

使用道具 举报

 楼主| 发表于 2018-12-26 21:29 | 显示全部楼层


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

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

使用道具 举报

 楼主| 发表于 2018-12-28 00:38 | 显示全部楼层
ssyfeng 发表于 2018-12-27 08:37
应该是复制时格式不对,我还是上传文件吧

非常感谢,
回复

使用道具 举报

发表于 2019-1-11 23:18 | 显示全部楼层

使用没发现错误
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-28 19:16 , Processed in 0.262358 second(s), 16 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表