ZZXXQQ 发表于 2014-3-8 08:10:04

写了一个，可能不合要求。;标记图框 明经 ZZXXQQ 2014.3.8
(defun c:tt ()
(setvar "CMDECHO" 0)
(vl-load-com)
(if (setq ss (ssget '((0 . "LWPOLYLINE") (8 . "SS-TITLE") (90 . 4) (70 . 1) (40 . 0.0)))) (progn
(setq i -1)
(repeat (sslength ss)
(setq en (ssname ss (setq i (1+ i))))
(vla-getboundingbox(vlax-ename->vla-object en) 'p1 'p2)
(setq p1 (vlax-safearray->list p1)
       p2 (vlax-safearray->list p2))
(setq ss2 (ssget "W" p1 p2 '((0 . "INSERT") (2 . "$$titleblk$$00000109"))))
(setq scl (cdr(assoc 41 (entget(ssname ss2 0)))))
(setq h (/ (- (cadr p2) (cadr p1)) scl))
(setq w (/ (- (car p2) (car p1)) scl))
(cond
((equal h 841 1) (setq A "A0"))
((equal h 594 1) (setq A "A1"))
((equal h 420 1) (setq A "A2"))
((and (equal h 297 1) (>= w 419)) (setq A "A3"))
((and (equal h 297 1) (>= w 209)) (setq A "A4"))
((and (equal h 210 1) (>= w 296)) (setq A "A4"))
)
(setq A (strcat a "(" (rtos h 2 0) "x" (rtos w 2 0) ")-1:" (rtos scl 2 0)))
(setq pt1 (polar (polar p1 (/ pi 2) (+ (* h scl) 2000)) 0 2000))
(setq pt2 (polar (polar p2 (/ pi 2) 2000) pi 2000))
(entmake
(list '(0 . "TEXT") (cons 10 pt1) '(8 . "DEFPOINTS") '(62 . 1)
'(50 . 0.0) '(41 . 0.85) '(40 . 5000.0) (cons 1 A) '(7 . "W-黑体"))
)
(entmake
(list '(0 . "TEXT") '(10 0.0 0.0 0.0) '(8 . "DEFPOINTS") '(62 . 3) '(50 . 0.0) '(41 . 0.85)
'(40 . 5000.0) (cons 1 (itoa (1+ i))) '(7 . "W-黑体") '(72 . 2) (cons 11 pt2))
)
)
))
(setvar "CMDECHO" 0)
(princ)
)

bai2000 发表于 2014-3-15 11:08:38

不能用啊

bai2000 发表于 2014-6-29 11:53:00

zhuquanmao 发表于 2014-6-29 22:45:28

都是提取属性块

bai2000 发表于 2015-3-5 14:00:32

老大有空修改下

myfrankie 发表于 2015-11-11 11:30:21

菜卷鱼 发表于 2013-12-9 08:15 static/image/common/back.gif
这个也没啥难度，有个简单一点的方法，就是把图框做成块，在图框的左上角添加属性文字，属性文字里填写字段 ...

有没说说具体方法 我弄不成功

sosomany 发表于 2015-11-29 14:45:36

xyp1964 发表于 2013-12-8 12:25 static/image/common/back.gif


这个使用条件与使用命令是什么？

ljfzx 发表于 2016-10-22 16:36:33

zhuquanmao 发表于 2014-6-29 22:45
都是提取属性块

你好，我看了你这个提取属性块的程序，觉得挺好的，不知道能不能提供lsp呢？

hdlyt11 发表于 2018-1-9 10:36:15

ZZXXQQ 发表于 2014-3-8 08:10
写了一个，可能不合要求。

选择对象:错误 : 参数类型错误: lselsetp nil

hyp1158 发表于 2018-11-9 08:55:04

zhuquanmao 发表于 2014-6-29 22:45
都是提取属性块

你用的是哪个插件工具呢？可否提供下？谢谢
页: 1 [2] 3
查看完整版本: 可否选择图框，自动将图框大小、比例、图号在图框上方标识出来？