[求助]meflying版主，请教了。

cag · 发表于 2004-4-12 15:15:00

(defun c:ll (/ pt doc pl att pt2 p block blocks blockref)
   (setq pt (getpoint "Enter the insert position:"))
   (setq doc (vla-get-activedocument (vlax-get-acad-object)))
   (setq blocks (vla-get-blocks doc))
   (setq block (vla-add blocks (vlax-3d-point pt) "pp"))
   (setq pt2 (polar pt 0 15))
   (setq p (vlax-make-safearray vlax-vbdouble '(0 . 3)))
   (vlax-safearray-fill
   p
   (list (car pt) (cadr pt) (car pt2) (cadr pt2))
   )
   (setq pl (vla-AddLightweightPolyline block p))
   (setq att (vla-Addattribute
   block
   3.5
   0
   "hello"
   (vlax-3d-point '(0 0 0))
   "HELLO1"
   "hello2"
   )
   )
   (setq blockref (vla-insertblock
   (vla-get-ModelSpace doc)
   (vlax-3d-point pt)
   (vla-get-name block)
   1
   1
   1
   0
   )
   )
   (setq
   ATT (vlax-safearray->list
   (vlax-variant-value
   (vla-getattributes BLOCKREF)
   )
)
   )
   (princ)
)
这是您以前编的一个程序，为什么炸开后，属性会跑到原点去？
该怎么改？

龙龙仔 · 发表于 2004-4-12 16:50:00

因為定義圖塊與插入圖塊是兩回事,圖塊原點都在0,0 所以圖塊內物件以0,0為原點來看你要加入的物件位置,而插入圖塊是以圖塊插入點插入。

看不懂?....8-( 要是我把程序貼上你就會了解!但給點時間給你想想!

cag · 发表于 2004-4-13 08:40:00

是不是就是插入的属性的位置是以图块的插入点作为原点？

龙龙仔 · 发表于 2004-4-13 09:44:00

錯! 属性的位置是以图块的原点為準(相對位置)!

cag · 发表于 2004-4-13 13:45:00

哦，明白了，可怎么创建一个图块让它打散后，属性的位置不会跑至原点呢？
是不是创建时以原点作为基点，再插入该图块？

cag · 发表于 2004-4-13 13:56:00

(defun c:ll (/ pt doc pl att pt2 p block blocks blockref)
   (setq pt (getpoint "Enter the insert position:"))
   (setq doc (vla-get-activedocument (vlax-get-acad-object)))
   (setq blocks (vla-get-blocks doc))
   (setq block (vla-add blocks (vlax-3d-point '(0 0 0)) "pp")) ;;;改了一下
   (setq pt2 (polar (list 0 0 0) 0 15))    ;;;改了一下
   (setq p (vlax-make-safearray vlax-vbdouble '(0 . 3)))
   (vlax-safearray-fill
   p
   (list (car (list 0 0 0)) (cadr (list 0 0 0)) (car pt2) (cadr pt2));;;改了一下
   )
   (setq pl (vla-AddLightweightPolyline block p))
   (setq att (vla-Addattribute
   block
   3.5
   0
   "hello"
   (vlax-3d-point '(0 0 0))
   "HELLO1"
   "hello2"
   )
   )
   (setq blockref (vla-insertblock
   (vla-get-ModelSpace doc)
   (vlax-3d-point pt)
   (vla-get-name block)
   1
   1
   1
   0
   )
   )
   (setq
   ATT (vlax-safearray->list
   (vlax-variant-value
   (vla-getattributes BLOCKREF)
   )
)
   )
   (princ)
)是不是就这样子改？有没有其他更好的方法？

龙龙仔 · 发表于 2004-4-13 14:05:00

(defun CL_LAI (/ PT DOC PL ATT PT2 P BLOCK BLOCKS BLOCKREF)
   (setq DOC (vla-get-activedocument (vlax-get-acad-object)))
   (if (not (tblsearch "block" "pp"))
   (progn
   (setq BLOCKS (vla-get-blocks DOC))
   (setq PT '(0 0 0))
   (setq BLOCK (vla-add BLOCKS (vlax-3d-point PT) "pp"))
   (setq PT2 (polar PT 0 15))
   (setq P (vlax-make-safearray vlax-vbdouble '(0 . 3)))
   (vlax-safearray-fill
P
(list (car PT) (cadr PT) (car PT2) (cadr PT2))
   )
   (setq PL (vla-addlightweightpolyline BLOCK P))
   (setq ATT (vla-addattribute
   BLOCK
   3.5
   0
   "hello"
   (vlax-3d-point '(0 0 0))
   "HELLO BABY!"
   "hello2"
)
   )
   )
   )
   ;;(setq BLOCKREF
   (vla-insertblock
   (vla-get-modelspace DOC)
   (vlax-3d-point (getpoint "\nEnter the insert position: "))
   "pp"
   1
   1
   1
   0
   )
   ;;)
   ;|
   (setq ATT (vlax-safearray->list
   (vlax-variant-value
(vla-getattributes BLOCKREF)
   )
   )
   )|;
   (princ)
)

cag · 发表于 2004-4-13 14:14:00

呵呵，我上边是这样子写的嘛
图块原点setq block (vla-add blocks (vlax-3d-point '(0 0 0)) "pp"))
线端点setq pt2 (polar (list 0 0 0) 0 15))
线起点和属性也定义在原点。

[求助]meflying版主，请教了。

发表回复

精选推荐

浏览过的版块