乐筑天下

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

[编程交流] 连续到虚线

[复制链接]
teknomatika

57

主题

243

帖子

190

银币

后起之秀

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

铜币
285
发表于 2022-7-6 08:03:36 | 显示全部楼层 |阅读模式
我想将最后绘制的图元（圆弧）的线型从连续更改为虚线。什么是失败？
 
  2. ...
  3. (command "_.arc" "c" "_non" pt1 "_non" pt3 "_non" pt2 "")
  4. (setq ent1 (entlast))
  5. (setq ent2 (entget ent1))
  6. (setq ent2 (subst (cons 6 "dashed") (assoc 6 entdados) ent2 ))
  7. (entmod ent2)
回复

使用道具 举报

MSasu

35

主题

2471

帖子

2447

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
174
发表于 2022-7-6 08:12:08 | 显示全部楼层
如果线型按图层关联，则DXF代码6不可用；因此，您的代码应该是：
  2. [color=red](if (assoc 6 ent2)[/color]
  3. (setq ent2 (subst (cons 6 "DASHED") (assoc 6 [color=red]ent2[/color]) ent2))
  4. [color=#ff0000](setq ent2 (append ent2  (list (cons 6 "DASHED"))))[/color]
  5. [color=red])[/color]
  6. [color=black](entmod ent2)[/color]
回复

使用道具 举报

teknomatika

57

主题

243

帖子

190

银币

后起之秀

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

铜币
285
发表于 2022-7-6 08:13:00 | 显示全部楼层
米尔恰，谢谢你的帮助。但是，正确，但似乎没有更新。也许，我又做错了什么。
 
 
  1. ...(command "_.arc" "c" "_non" pt1 "_non" pt3 "_non" pt2 "")
  2. (setq ent1 (entlast))
  3. (setq ent2 (entget ent1))
  4. (if (assoc 6 ent2)
  5. (entmod (subst (cons 6 "DASHED") (assoc 6 ent2) ent2))
  6. (entmod (append ent2  (list (cons 6 "DASHED"))))
  7. )
回复

使用道具 举报

MSasu

35

主题

2471

帖子

2447

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
174
发表于 2022-7-6 08:20:27 | 显示全部楼层
您是否检查过LTSCALE系统变量是否有合适的值？
要验证图元的线型，应在图形中选择该图元并检查其特性，或打印其关联列表。
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

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

铜币
211
发表于 2022-7-6 08:24:52 | 显示全部楼层
如果没有在图形中加载虚线类型，这对您没有好处。。（我想）
回复

使用道具 举报

MSasu

35

主题

2471

帖子

2447

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
174
发表于 2022-7-6 08:28:51 | 显示全部楼层
观察得好，pBe！
回复

使用道具 举报

MSasu

35

主题

2471

帖子

2447

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
174
发表于 2022-7-6 08:31:49 | 显示全部楼层
要确保所需线型在当前图形中可用，请执行以下操作：
  1. (if (not (tblsearch "LTYPE" "DASHED"))
  2. (vla-load (vla-get-Linetypes (vla-get-ActiveDocument (vlax-get-acad-object))) "DASHED" "ACAD.LIN")
  3. )
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

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

铜币
211
发表于 2022-7-6 08:37:51 | 显示全部楼层
 
这真的没什么，有时我们没有注意到显而易见的事情和小事（只有人）
 
干杯Mirea
回复

使用道具 举报

teknomatika

57

主题

243

帖子

190

银币

后起之秀

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

铜币
285
发表于 2022-7-6 08:40:54 | 显示全部楼层
他们是对的。实际上，预加载线型可以确保更新。
谢谢你的课。
已更新。。。
 
  1. ...(command "_.arc" "c" "_non" pt1 "_non" pt3 "_non" pt2 "")
  2. (if (not (tblsearch "LTYPE" "DASHED"))
  3. (vla-load (vla-get-Linetypes (vla-get-ActiveDocument (vlax-get-acad-object))) "DASHED" "ACAD.LIN")
  4. )
  5. (setq ent1 (entlast))
  6. (setq ent2 (entget ent1))
  7. (if (assoc 6 ent2)
  8. (entmod (subst (cons 6 "DASHED") (assoc 6 ent2) ent2))
  9. (entmod (append ent2  (list (cons 6 "DASHED"))))
  10. )

 
 
顺便说一句，在练习中，我不仅需要更改设计的最后一个实体，还需要更改倒数第二个实体吗？在本例中，是一条线。
回复

使用道具 举报

MSasu

35

主题

2471

帖子

2447

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
174
发表于 2022-7-6 08:45:15 | 显示全部楼层
其他两种线型更改解决方案：
  1. (vla-put-LineType (vlax-ename->vla-object (entlast)) "DASHED")
和
  1. (command "_CHPROP" (entlast) "" "_LT" "DASHED" "")
回复

使用道具 举报

12下一页
返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-9 21:29 , Processed in 0.462940 second(s), 72 queries .

© 2020-2025 乐筑天下

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