(setq OBJ (vlax-ename->vla-object (car (entsel))))
(vlax-put-property OBJ ‘VertCellMargin (getint))
(vlax-put-property OBJ ‘HorzCellMargin (getint))
(setq OBJ (vlax-ename->vla-object (car (entsel))))
(vlax-put-property OBJ ‘VertCellMargin (getint))
(vlax-put-property OBJ ‘HorzCellMargin (getint))
This entry was posted on 月曜日, 2月 26th, 2007, 4:45 PM and is filed under LISP. You can follow any responses to this entry through RSS 2.0. You can leave a response, or trackback from your own site.
Fusion theme by digitalnature | powered by WordPress
Entries (RSS) and Comments (RSS) ^
#1 by BlogPetのうり坊 - 3月 7th, 2007 at 12:11
きのうはゆりがblogされたみたい…