[求助]如何用LISP调出如图所示的对话框？

ZHAOWCHANG

如题，如何用LISP调出如图所示的对话框？

caoyin

直接调出恐怕不行，自己用对话框写一个也不难啊！！

ZHAOWCHANG

在OBJECTDCL中方便调出吗?

jxlsp

OBJECTDCL只是个框架,也要自己写.

飞诗(fsxm)

http://fsxm.ys168.com/->

3.一点点函数集->

1.doslib的lisp化->

acad_functions.LSP->

(defun fsxm-linetypebox (def / new old)
  (setq old (getvar "CELTYPE"))
  (vl-catch-all-apply 'setvar (list "CELTYPE" def))
  (initdia)
  (command ".linetype")
  (setq new (getvar "CELTYPE"))
  (setvar "CELTYPE" old)
  new
)

ZHAOWCHANG

谢谢，楼上的回答，据此推出调用线宽为：

  (command ".lweight")

sjz203

这必须在LISP程序种通过路径调用这个对话框的DCL程序，再通过相关的 对话框 显示函数，如“start_dialog”等，当然再调用这个函数之前，对话框是要初始化的，希望对你有所帮助。