[求助]调用wblock存盘时怎么确定存盘路径？

dinosaurhxe

试验后发现，这样存盘的路径和我在CAD图形中直接wblock时弹出对话框中的路径是一致的，怎样用LISP来更改这个路径呢？

我用的是(command "wblock" "filename" "Y" "*")，怎样给它加入我指点的路径信息呢？

Andyhon

(command "wblock" "C:\\Dwg\\filename" "Y" "*") ; filename Existed
; or
(command "wblock" "C:\\Dwg\\filename" "*")     ; just as a sample[Path]

dinosaurhxe

So Easy，感谢指点！！
正好用上以前写的一段来获得路径，再strcat就可以了。

2. (defun getpath (/ nowdwg pathnow)
3.   (setq nowdwg (getvar "dwgname"))
4.   (setq pathnow (findfile nowdwg))
5.   (setq pathnow (substr pathnow 1 (- (strlen pathnow) (strlen nowdwg))))
6.   pathnow
7. )

(defun getpath (/ nowdwg pathnow)   (setq nowdwg (getvar "dwgname"))   (setq pathnow (findfile nowdwg))   (setq pathnow (substr pathnow 1 (- (strlen pathnow) (strlen nowdwg))))   pathnow )

Andyhon

另法 (strcat (getvar "DwgPrefix") (getvar "DwgName"))

dinosaurhxe

楼上的方法好，俺那段path白干了！！