设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [求助]：如何用LISP编制创建带属性块的程序? ...
12下一页
返回列表 发新帖
查看: 3196|回复: 15

[求助] [求助]：如何用LISP编制创建带属性块的程序?

[复制链接]
james_scott
发表于 2002-9-5 14:00:28 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
如何用LISP编制创建带属性块的程序?
谢谢.
应该是用ENTMAKE函数吧?!
望高手指点!
最好有一个程序为例!
何用, 程序, 编制

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

elmar
发表于 2002-9-7 19:25:04 | 显示全部楼层
我也不知道。哈哈，一起等高手回答吧。
顺便借这个地方问一问：无名块可不可以带属性？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

LUCAS
发表于 2002-9-9 12:44:21 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
;;;转贴自明经通道 http://www.mjtd.com/bbs/
;;;生成带属性的匿名块。

  3. (defun C:MBA ()
  4.   (entmake
  5.     '((0 . "block") (2 . "*U") (70 . 1) (10 0.0 0.0 0.0))
  6.   )
  7.   (entmake '((0 . "CIRCLE")
  8.              (100 . "AcDbEntity")
  9.              (67 . 0)
  10.              (8 . "0")
  11.              (100 . "Circle")
  12.              (10 0.7 1.2 0.0)
  13.              (40 . 21)
  14.              (210 0.0 0.0 1.0)
  15.             )
  16.   )
  17.   (entmake '((0 . "ATTDEF")
  18.              (100 . "AcDbEntity")
  19.              (67 . 0)
  20.              (8 . "0")
  21.              (100 . "AcDbText")
  22.              (10 -2.4 -1.0 0.0)
  23.              (40 . 2.5)
  24.              (1 . "0")
  25.              (50 . 0.0)
  26.              (41 . 1.0)
  27.              (51 . 0.0)
  28.              (7 . "STANDARD")
  29.              (71 . 0)
  30.              (72 . 5)
  31.              (11 0.0 0.0 0.0)
  32.              (210 0.0 0.0 1.0)
  33.              (100 . "AcDbAttributeDefinition")
  34.              (3 . "请输入属性")
  35.              (2 . "属性")
  36.              (70 . 0)
  37.              (73 . 0)
  38.              (74 . 0)
  39.             )
  40.   )
  41.   (setq BLKN (entmake '((0 . "ENDBLK"))))
  42.   (setq        LST0 '((0 . "INSERT")
  43.                (100 . "AcDbEntity")
  44.                (67 . 0)
  45.                (8 . "0")
  46.                (100 . "AcDbBlockReference")
  47.                (66 . 1)
  48.                (10 0.0 0.0 0.0)
  49.                (41 . 1.0)
  50.                (42 . 1.0)
  51.                (43 . 1.0)
  52.                (50 . 0.0)
  53.                (70 . 0)
  54.                (71 . 0)
  55.                (44 . 0.0)
  56.                (45 . 0.0)
  57.                (210 0.0 0.0 1.0)
  58.               )
  59.   )
  60.   (setq LST1 (append LST0 (list (cons 2 BLKN))))
  61.   (entmake LST1)
  62.   (entmake '((0 . "ATTRIB")
  63.              (5 . "26")
  64.              (100 . "AcDbEntity")
  65.              (67 . 0)
  66.              (8 . "0")
  67.              (100 . "AcDbText")
  68.              (10 -2.4 -1.0 0.0)
  69.              (40 . 2.5)
  70.              (1 . "123")
  71.              (50 . 0.394791)
  72.              (41 . 0.445714)
  73.              (51 . 0.0)
  74.              (7 . "STANDARD")
  75.              (71 . 0)
  76.              (72 . 5)
  77.              (11 0.0 0.0 0.0)
  78.              (210 0.0 0.0 1.0)
  79.              (100 . "AcDbAttribute")
  80.              (2 . "属性")
  81.              (70 . 0)
  82.              (73 . 0)
  83.              (74 . 0)
  84.             )
  85.   )
  86.   (entmake '((0 . "SEQEND")))
  87. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

cy956
发表于 2002-9-9 15:30:16 | 显示全部楼层
用entmake做块很累，r12时archtlt的几个制图符号（如剖切号等）都是
这样做的，程序长且繁。建议你作块还是用block＋insert，省事得多。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

luln
发表于 2002-11-1 16:21:07 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
如何用block＋insert作块？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

XDSoft

已领礼包: 145个

财富等级: 日进斗金
发表于 2002-11-1 18:00:49 | 显示全部楼层
最初由 luln 发布
[B]如何用block＋insert作块？ [/B]


就是要命令交互做. BLOCK命令和INSERT命令.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

eachy

已领礼包: 593个

财富等级: 财运亨通
发表于 2002-11-2 01:19:05 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
贴一段标注程序中的代码，注意蓝色组码。


  4. (defun $yb_mkattrib        (p str $angle code1 code2 tf)
  5.       (list (cons 0
  6.                   (if tf
  7.                     "ATTDEF"
  8.                     "ATTRIB"
  9.                   )
  10.             )
  11.             '(100 . "AcDbEntity")
  12.             '(67 . 0)                        ;模型空间
  13.             '(8 . "0")                        ;图层
  14.             '(100 . "AcDbText")
  15.             (cons 10 p)                        ;文字起点
  16.             (cons 40 (* 2.5 #bl))        ;字高
  17.             (cons 1 str)                ;缺省值
  18.             (CONS 100
  19.                   (IF TF
  20.                     "AcDbAttributeDefinition"
  21.                     "AcDbAttribute"
  22.                   )
  23.             )
  24.             (cons 2 (substr str 1 1))
  25.             '(70 . 0)
  26.             '(73 . 0)
  27.             (cons 50 ($ea_fmtang $angle)) ;旋转角
  28.             '(41 . 0.75)                ;宽度因子
  29.             '(51 . 0.0)                        ;倾角
  30.             '(7 . "yb_zbbz")                ;字体样式
  31.             '(71 . 0)                        ;文字生成标志
  32.             (cons 72 code1)
  33.             (cons 74 code2)
  34.             (cons 11
  35.                   (if (/= (+ code1 code2) 0)
  36.                     p
  37.                     '(0.0 0.0 0.0)
  38.                   )
  39.             )                                ;对齐点
  40.             '(210 0.0 0.0 1.0)                ;拉伸方向
  41.             (if        tf
  42.               (cons 3 (substr str 1 1))
  43.             )
  44.       )
  45.     )
  46.     (entmake
  47.       (list '(0 . "block") '(2 . "*U") '[color=blue](70 . 67)[/color] (cons 10 p1))
  48.     )
  49.     (entmake (list '(0 . "LWPOLYLINE")
  50.                    '(100 . "AcDbEntity")
  51.                    '(8 . "0")
  52.                    '(100 . "AcDbPolyline")
  53.                    '(90 . 3)
  54.                    (cons 10 p1)
  55.                    (cons 10 p2)
  56.                    (cons 10 pt3)
  57.                    '(210 0.0 0.0 1.0)
  58.              )
  59.     )
  60.     (entmake (drop ($ea_mkattrib pa2 px $angle 0 0 T) nil))
  61.     (entmake (drop ($ea_mkattrib pa3 py $angle 0 3 T) nil))
  62.     (setq blkn (entmake '((0 . "ENDBLK"))))
  63.     ;;引用块
  64.     (setq lst0 (list '(0 . "INSERT")
  65.                      '(100 . "AcDbEntity")
  66.                      (cons 8 (getvar "clayer"))
  67.                      '(100 . "AcDbBlockReference")
  68.                      '(66 . 1)
  69.                      (cons 10 p1)
  70.                      '(41 . 1.0)
  71.                      '(42 . 1.0)
  72.                      '(43 . 1.0)
  73.                      '(50 . 0.0)
  74.                      '(70 . 0)
  75.                      '(71 . 0)
  76.                      '(44 . 0.0)
  77.                      '(45 . 0.0)
  78.                      '(210 0.0 0.0 1.0)
  79.                )
  80.     )
  81.     (setq lst1 (append lst0 (list (cons 2 blkn))))
  82.     (entmake lst1)
  83.     (entmake (drop ($yb_mkattrib pa2 px $angle 0 0 nil) nil))
  84.     (entmake (drop ($yb_mkattrib pa3 py $angle 0 3 nil) nil))
  85.     (entmake '((0 . "SEQEND")))
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

userzhluserzhl
发表于 2005-7-28 16:50:36 | 显示全部楼层
三楼，为何是这样的？
命令: (LOAD "C:/Documents and Settings/Bluewater/桌面/MBA.LSP") C:MBA

命令: MBA ((0 . "SEQEND"))
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

gao_213
发表于 2005-7-28 20:11:21 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
你到Vlisp中格式排一下，可能是上传时漏了括号之类。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

userzhluserzhl
发表于 2005-7-30 14:49:41 | 显示全部楼层
楼上的兄台，我试了，还是不行呀。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

jx2008
发表于 2006-12-5 14:20:36 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
是的，3楼的程序是不能执行。和4楼说道俄显像一样
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

LUCAS
发表于 2006-12-6 12:57:52 | 显示全部楼层
一樣代表正常,屬性塊就在0,0處
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

橄榄滋味
发表于 2006-12-7 11:32:43 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
请问3楼的属性块为什么不能用鼠标双击后修改属性值，用attdef定义的属性块是可以的，能不能改进以下？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zmxzhang
发表于 2006-12-7 18:11:51 | 显示全部楼层
无法编辑块属性嘛？？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

LUCAS
发表于 2006-12-14 14:06:30 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
;;改一下即可!
(entmake
    '((0 . "block") (2 . "*U") (70 . 3) (10 0.0 0.0 0.0)) ;(70 . 1)雙擊編輯無效
)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-5-4 17:48 , Processed in 0.403983 second(s), 57 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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