(defun c:XDTB_InPutTwf (/ a AcadDocument AcadObject b bl chat fn fp height i ii imageName imageNames
insertionPnt len len1 mSpace path pt RasterObj reco tfwname twfNames width x
)
(defun _process (fn imageName /)
(setq fp (open fn "r"))
(setq reco (read-line fp)
ii 1
)
(setq chat nil)
(while reco
(setq chat (append (list reco) chat))
(setq reco (read-line fp)
ii (1+ ii)
)
)
(close fp)
(setq pt (list (atof (nth 1 chat)) (atof (nth 0 chat)) 0))
(setq bl (atof (nth 5 chat)))
(setq insertionPnt (vlax-make-safearray vlax-vbDouble '(0 . 2)))
(vlax-safearray-fill insertionPnt pt)
(setq RasterObj (vla-AddRaster mSpace imageName insertionPnt 1 0))
(setq width (vla-get-Width RasterObj))
(setq height (vla-get-height RasterObj))
(vla-put-Im
最低0.47元/天 解锁文章
620
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
