乐筑天下

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

[编程交流] Mlstyle Caps关闭?

[复制链接]

63

主题

6297

帖子

6283

银币

后起之秀

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

铜币
358
发表于 2022-7-6 11:35:30 | 显示全部楼层
嗨,李先生
 
一个非常好的信息。因此,如果我想创建一个实体来设计多线样式,我必须使用哪些代码作为多线的开始和结束。(旗号是否与70相同)
 
非常感谢
塔瓦特
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 11:37:46 | 显示全部楼层
要创建多线样式,可以使用对象引用,但要创建多线图元,可以使用图元引用。
回复

使用道具 举报

63

主题

6297

帖子

6283

银币

后起之秀

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

铜币
358
发表于 2022-7-6 11:40:04 | 显示全部楼层
李先生。
 
太好了。
非常感谢你的澄清,现在我很清楚了。
 
您真诚的
 
塔瓦特
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 11:43:43 | 显示全部楼层
不客气-字典可能更像是AutoLISP的高级部分,所以如果需要接受很多内容,请不要担心
回复

使用道具 举报

7

主题

37

帖子

30

银币

初来乍到

Rank: 1

铜币
35
发表于 2022-7-6 11:48:03 | 显示全部楼层
尊敬的李:,
实际上,我是Lisp的biginner。。。。。。。。。。
如何使用ur代码。。。。。。。。。。
我没有得到结果。。。。
帮助我?
谢谢
当做
马尼
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 11:50:45 | 显示全部楼层
使用post#5中发布的代码以及正确的样式名和位代码组合来实现您想要实现的目标,
 
起点和终点的内弧示例:
 
  1. (PutMLineStyleProps "Standard" (+ 32 512))
回复

使用道具 举报

7

主题

37

帖子

30

银币

初来乍到

Rank: 1

铜币
35
发表于 2022-7-6 11:52:12 | 显示全部楼层
:)嗨,李,我真的很抱歉,
因为我这次的成就有些不同。
我正在使用一种糟糕的方法,因为我在lisp方面没有太多经验。但这对持续两年很有帮助。(为我准备了3个月)。
我知道这对你和其他人来说是非常简单的lisp。
我的目标是(需要lisp)
我想要一条类似剖面线的矩形多段线。
1.绘制多段线(用户输入)
2.两侧偏移多段线(偏移值用户输入)并删除中间线
3.通过多段线连接两条偏移线,并通过pedit连接所有偏移线(端到端和端到端)
5.偏移外侧200mm
6.图案填充(仅中间)
&准备下一个进程
见附件
选项:
1.两侧偏移
2.偏移任何一侧
但我在宏中是如何做到的,
1.mline(带偏移)(带端到端盖)
2.xplode
3.P连接
4.图案填充
如果我在新的dwg中使用它,每次都需要手动关闭mlstyle cap,这就是我发布此线程的原因
帮助我。。。。。。。。。。。。。。
非常感谢
马尼
回复

使用道具 举报

7

主题

37

帖子

30

银币

初来乍到

Rank: 1

铜币
35
发表于 2022-7-6 11:55:34 | 显示全部楼层
此处为附件。。。。。。。。。。。
120100vahsraeryrtepjsh.jpg
120101udqei72ebrdqono6.jpg
回复

使用道具 举报

62

主题

466

帖子

404

银币

后起之秀

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

铜币
310
发表于 2022-7-6 11:59:25 | 显示全部楼层
 
我也是初学者。我不在乎我的代码是否简单。它起作用了!
 
坚持使用mline
 
  1. [color=red] [b](...mline command here...)[/b][/color]
  2. (while (= 1 (getvar "cmdactive"))
  3. (command pause)
  4. );end while
  5. (command "_explode" "l" "")
  6. (command "_pedit" "m" "p" "" "" "j" "" "")
  7. (command "-hatch" "p" "ansi31" "40" "" "s" "l" "" ""))
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 12:01:07 | 显示全部楼层
多线到多线示例:
 
  1. (defun c:m2p ( / *error* EntNext_to_End DOC ELST ENT I MSS OV SS UFLAG VL )
  2. ;; MLine to PLine  ~  Lee Mac  ~  04.01.10
  3. (defun *error* ( msg )
  4.    (and ov    (mapcar (function setvar) vl ov))
  5.    (and uflag (vla-EndUndoMark doc))
  6.    (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
  7.        (princ (strcat "\n** Error: " msg " **")))
  8.    (princ)
  9. )
  10. (defun EntNext_to_End (ent / a)
  11.    (if (setq ent (entnext ent))
  12.      (cons ent (EntNext_to_End ent))
  13.    )
  14. )
  15. (setq vl '("CMDECHO" "PEDITACCEPT" "QAFLAGS")
  16.        ov  (mapcar (function getvar) vl) ss (ssadd))
  17. (mapcar (function setvar) vl '(0 1 0))
  18. (if (setq i -1 mss (ssget "_:L" '((0 . "MLINE"))))
  19.    (progn
  20.      (setq uFlag
  21.        (not
  22.          (vla-StartUndoMark
  23.            (setq doc
  24.              (vla-get-ActiveDocument
  25.                (vlax-get-acad-object)
  26.              )
  27.            )
  28.          )
  29.        )
  30.      )
  31.      (
  32.        (lambda ( i )
  33.          (while (setq ent (ssname mss (setq i (1+ i))))
  34.            (setq eLst (entlast) ss (ssadd))
  35.            (vl-cmdf "_.explode" ent)
  36.            (mapcar (function (lambda ( x ) (ssadd x ss)))
  37.              (EntNext_to_End eLst)
  38.            )
  39.            (vl-cmdf "_.pedit" "_M" ss "" "_J" "" "")
  40.            (setq ss nil)
  41.          )
  42.        )
  43.        -1
  44.      )
  45.      (setq uFlag (vla-EndUndoMark doc))
  46.    )
  47. )
  48. (mapcar (function setvar) vl ov)
  49. (princ)
  50. )
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-4 16:43 , Processed in 1.035192 second(s), 73 queries .

© 2020-2025 乐筑天下

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