Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (setq ssblock (ssget))
- (setq selblock (vlax-ename->vla-object (ssname ssblock 0)))
- (setq atributes (vla-getattributes selblock))
- (setq atributesSA (variant-value atributes))
- (setq atributesL (safearray-value atributesSA))
- (setq wykonawca (vla-get-textstring (nth 0 atributesL)))
- (print (vla-get-tagstring (nth 0 atributesL)))
- (print (vla-get-textstring (nth 0 atributesL)))
- (vlax-dump-object selblock t )
- (setq Layer (vla-get-layer (nth 0 atributesL)))
- (
- (setq p1 nil)
- (setq p2 nil)
- (setq p3 nil)
- (setq p1 (getpoint "p1:") )
- (setq p2 (getpoint "p2:") )
- (setq p3 (getpoint "p3:") )
- (setq triangleSelection (ssget "_CP" (list p1 p2 p3)'((8 . "0"))))
- (entmake
- (list
- (cons 0 "LAYER")
- (cons 100 "AcDbSymbolTableRecord")
- (cons 100 "AcDbLayerTableRecord")
- '(2 . "fav")
- '(70 . 0)
- '(62 . 25)
- '(6 . "Continuous")
- )
- )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement