乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
楼主: Grigs

[编程交流] Wall PocheLisp程序

[复制链接]
Tharwat

63

主题

6297

帖子

6283

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
358
发表于 2022-7-6 08:14:40 | 显示全部楼层
像这样的事情？
  2. (defun c:Test (/ p1 p2 w vl) (vl-load-com)
  3.  (if (and (setq p1 (getpoint "\n Specify first point :"))
  4.           (setq p2 (getpoint p1 "\n Next point :"))
  5.      )
  6.    (vl-cmdf "_.pline" "_non" p1 "_non" p2 "")
  7.  )
  8.  (if (setq w (getdist "\n Specify width of Polyline :"))
  9.    (progn
  10.      (setq vl (vlax-ename->vla-object (entlast)))
  11.      (vla-put-constantwidth vl w)
  12.    )
  13.    (princ)
  14.  )
  15.  (princ)
  16. )
回复

使用道具 举报

Grigs

18

主题

71

帖子

53

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
90
发表于 2022-7-6 08:19:04 | 显示全部楼层
是的，效果很好。谢谢
回复

使用道具 举报

Tharwat

63

主题

6297

帖子

6283

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
358
发表于 2022-7-6 08:20:30 | 显示全部楼层
 
不客气。
回复

使用道具 举报

Grigs

18

主题

71

帖子

53

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
90
发表于 2022-7-6 08:24:10 | 显示全部楼层
现在只是稍微调整一下
回复

使用道具 举报

Tharwat

63

主题

6297

帖子

6283

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
358
发表于 2022-7-6 08:27:32 | 显示全部楼层
如果你需要添加更多选项，只要告诉我，如果我能做到的话，我会非常乐意修改它。
回复

使用道具 举报

Grigs

18

主题

71

帖子

53

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
90
发表于 2022-7-6 08:30:36 | 显示全部楼层
我只需要添加错误检测、层控制、OSNAP的设置/重置。
回复

使用道具 举报

Tharwat

63

主题

6297

帖子

6283

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
358
发表于 2022-7-6 08:33:49 | 显示全部楼层
是的，这是可能的。
 
要在其上放置绘制的多段线的图层的名称是什么？
在运行例程时，您想要将其设置为打开的osnaps模式？
回复

使用道具 举报

Grigs

18

主题

71

帖子

53

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
90
发表于 2022-7-6 08:39:10 | 显示全部楼层
嗯，我想我已经弄明白了。它检测层是否存在。如果存在，则将该层设置为当前层。如果没有，它就会创建它。我已经同意了，只需要保存当前层并重置它。
回复

使用道具 举报

Tharwat

63

主题

6297

帖子

6283

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
358
发表于 2022-7-6 08:40:15 | 显示全部楼层
好的，只需发布图层的名称及其设置（颜色、线宽、LType）
回复

使用道具 举报

Grigs

18

主题

71

帖子

53

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
90
发表于 2022-7-6 08:42:51 | 显示全部楼层
以下是我提出的处理该层的代码：
 
回复

使用道具 举报

12
返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-9 21:47 , Processed in 0.613795 second(s), 70 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表