乐筑天下

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

[编程交流] 插入块的最佳方式

[复制链接]
motee-z

63

主题

242

帖子

181

银币

后起之秀

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

铜币
319
发表于 2022-7-5 18:48:22 | 显示全部楼层 |阅读模式
你好
插入搜索路径中已存在属性的块的最佳方法是什么
具有拾取旋转的选项
我用这个，但不能把波克层
  1. (command "insert" "blkname.dwg" "non" n   scx  scy (- 300(/(*( GETangle  p0 )200)PI))  ("attribu"))
回复

使用道具 举报

Commandobill

12

主题

395

帖子

384

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
60
发表于 2022-7-5 19:00:58 | 显示全部楼层
您可以使用vla插入一个块，但如果您想坚持使用该代码位，您可以始终在该行之后添加该代码以更改层：
  1. (vla-put-layer (vlax-ename->vla-object (entlast)) "YOUR LAYER NAME HERE")
回复

使用道具 举报

motee-z

63

主题

242

帖子

181

银币

后起之秀

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

铜币
319
发表于 2022-7-5 19:07:57 | 显示全部楼层
谢谢commandobill，好的，但是有没有其他方法插入带有属性的块
回复

使用道具 举报

Commandobill

12

主题

395

帖子

384

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
60
发表于 2022-7-5 19:14:05 | 显示全部楼层
这是一个很好的例子。
回复

使用道具 举报

Commandobill

12

主题

395

帖子

384

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
60
发表于 2022-7-5 19:17:37 | 显示全部楼层
李在这里也有一些很好的添加属性的方法。
回复

使用道具 举报

motee-z

63

主题

242

帖子

181

银币

后起之秀

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

铜币
319
发表于 2022-7-5 19:26:54 | 显示全部楼层
commandobill这种方式不成功，我认为是因为最后一个实体不是属性块，我得到一条消息{；错误：自动化错误。找不到键}
这是我的旧lisp，用来获取纵断面中任意点的高程
  1. (defun c:ff ()
  2.  (setq angbs(getvar"angbase"))
  3.  (setq aunts(getvar"aunits"))
  4.  (setq insunt(getvar"insunits")) 
  5.  (if(null txth)
  6.    (setq txth 1.25))
  7.    (setq txthnew(getreal(strcat"\n enter text height<sc:1/1000-txth=2.5;sc:1/500-txth=1.25;sc:1/200-txth=0.5>:"
  8.                       "<" (rtos txth 2 2)">:")))
  9. (if txthnew(setq txth txthnew))
  10. (if(null scrt)
  11.    (setq scrt 1))
  12.  (setq scrtnew(getreal(strcat"\n enter scale ratio(vertical/horizental)"
  13.                      "<" (rtos scrt 2 2)">:")))
  14. (if scrtnew(setq scrt scrtnew)) 
  15.      
  16. (if(null dh)
  17.      (setq dh 0))
  18.      (setq dhnew (getreal(strcat"\n enter datum level:""<"(rtos dh 2 0)">:")))
  19.      (if dhnew(setq dh dhnew)) 
  20.   (initget 1)
  21.   (setq p0 (getpoint "\pick any point on datum line"))
  22.   (while
  23.     (setvar"blipmode"0)
  24.      (initget 1)
  25.      (setq n (getpoint "\n pick point to get elevation"))   
  26.     ;;;;;;;;;;;;;;;;;;;;;;;;
  27.            (setvar "angbase"(/ pi 2))
  28.            (setvar "aunits"2)
  29.            (setvar"insunits"6)
  30.     ;;;;;;;;;;;;;;;;;;;;;;;
  31.             (command "insert" "lvm.dwg" "non" n   txth  txth (- 300(/(*( getangle  n )200)PI))  (rtos (+ dh (/(-(cadr n)(cadr p0)) scrt)) 2 3))
  32.     ;(vla-put-layer (vlax-ename->vla-object (entlast)) "mark-level")
  33.     (setvar"aunits"aunts)
  34.     (setvar"angbase"angbs)
  35.     (setvar"insunits"insunt)
  36.      
  37.   )
  38. )

并附上方块
lvm。图纸
回复

使用道具 举报

BIGAL

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 19:33:27 | 显示全部楼层
可能一个简单的do层首先期望层存在，这是库函数在其中爬行的地方，因为do层存在，然后可能是类似alanjt例程的东西。
 
  2. (command "-layer" "S" "yourlayername" "" "insert" "blkname.dwg" "non" n   scx  scy (- 300(/(*( GETangle  p0 )200)PI))  ("attribu"))
回复

使用道具 举报

Tharwat

63

主题

6297

帖子

6283

银币

后起之秀

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

铜币
358
发表于 2022-7-5 19:37:20 | 显示全部楼层
你好
 
试试这个[未经测试的]程序，让我知道。
 
注意：添加所需的图层名称，如程序中红色所示，并带有图形的完整路径。
 
  2. (defun c:ff (/ *error* vals dhnew n p scrtnew txthnew ang ent e lay)
  3.  (defun *error* (x)
  4.    (if vals
  5.      (mapcar 'setvar '(angbase aunits insunits blipmode) vals)
  6.      )
  7.    (and x
  8.         (not (wcmatch (strcase x) "*BREAK*,*CANCEL*,*EXIT*"))
  9.         (princ (strcat "\n ** Error : " x " **"))
  10.         )
  11.    )
  12.  (setq vals (mapcar 'getvar '(angbase aunits insunits blipmode)))
  13.  (if (not txth)
  14.    (setq txth 1.25)
  15.    )
  16.  (if (not scrt)
  17.    (setq scrt 1)
  18.    )
  19.  (if (not dh)
  20.    (setq dh 0)
  21.    )
  22.  (if (and (setq filename (findfile[color="red"] "lvm.dwg"[/color])) ;; Add the full of the drawing 
  23.           (tblsearch "LAYER" (setq lay [color="red"]"0"[/color])) ;; Replace the "0" layer name with your desired layer name.
  24.           (progn
  25.             (initget 6)
  26.             (cond ((setq txthnew
  27.                           (getreal
  28.                             (strcat
  29.                               "\n enter text height<sc:1/1000-txth=2.5;sc:1/500-txth=1.25;sc:1/200-txth=0.5>: <"
  30.                               (rtos txth 2 2)
  31.                               " >:"
  32.                               )
  33.                             )
  34.                          )
  35.                    (setq txth txthnew)
  36.                    )
  37.                   (t (setq txthnew txth))
  38.                   )
  39.             )
  40.           (progn
  41.             (initget 6)
  42.             (cond ((setq scrtnew
  43.                           (getreal
  44.                             (strcat
  45.                               "\nEnter scale ratio [vertical/horizental] < "
  46.                               (rtos scrt 2 2)
  47.                               " >:"
  48.                               )
  49.                             )
  50.                          )
  51.                    (setq scrt scrtnew)
  52.                    )
  53.                   (t (setq scrtnew scrt))
  54.                   )
  55.             )
  56.           (progn
  57.             (initget 6)
  58.             (cond ((setq dhnew (getreal (strcat "\n enter datum level < "
  59.                                                 (rtos dh 2 0)
  60.                                                 " > :"
  61.                                                 )
  62.                                         )
  63.                          )
  64.                    (setq dh dhnew)
  65.                    )
  66.                   (t (setq dhnew dh))
  67.                   )
  68.             )
  69.           (progn
  70.             (initget 1)
  71.             (setq p (getpoint "\pick any point on datum line"))
  72.             )
  73.           )
  74.    (progn
  75.      (mapcar 'setvar
  76.              '(angbase aunits insunits blipmode)
  77.              (list (/ pi 2) 2 6 0)
  78.              )
  79.      (while (progn
  80.               (initget 1)
  81.               (setq n (getpoint "\nPick point to get elevation"))
  82.               (setq ang (getangle n "\nSpecify Rotation angle :"))
  83.               (setq ent (entlast))
  84.               )
  85.        (command "_.-insert"
  86.                 filename
  87.                 "non"
  88.                 n
  89.                 txth
  90.                 txth
  91.                 (- 300 (/ (* ang 200) pi))
  92.                 (rtos (+ dh (/ (- (cadr n) (cadr p)) scrt)) 2 3)
  93.                 )
  94.        (if (not (eq ent (setq e (entlast))))
  95.            (entmod (append (entget e) (list (cons 8 lay))))
  96.          )
  97.        )
  98.      )
  99.    )
  100.  (*error* nil)
  101.  (princ)
  102.  )
回复

使用道具 举报

motee-z

63

主题

242

帖子

181

银币

后起之秀

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

铜币
319
发表于 2022-7-5 19:42:24 | 显示全部楼层
谢谢你做得很好，我会修改我所有的旧lisp以同样的方式工作
回复

使用道具 举报

Tharwat

63

主题

6297

帖子

6283

银币

后起之秀

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

铜币
358
发表于 2022-7-5 19:52:49 | 显示全部楼层
 
不客气，只要问一下你是否需要任何澄清或添加到程序中即可
回复

使用道具 举报

返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-12 13:55 , Processed in 1.263969 second(s), 72 queries .

© 2020-2025 乐筑天下

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