按钮对应图纸

futuremh

一个按钮对应一张图纸.比如按A1横,就插入一张A1横图框,当然图框是准备好的.这个LSP要怎么写下去呀?

caiqs

;;;师兄 QQ 361865648 2007/9/6日添加的函数
(defun setname (keyno)
;;;全局变量dwgfile保存文件名 

 (cond
    ((= (strcase keyno) "A01")
     (setq dwgfile A1横dwg文件名)
;;;     (setq dwgfile "2.dwg")
    )
    ((= (strcase keyno) "A02")
     (setq dwgfile A1纵dwg文件名)
    )
    ;;依此类推 ..................
  ) ;_end cond
) ;_end defun
;;;;函数setname结束

(DEFUN C:RECT ()
  (SETQ DCL_ID (LOAD_DIALOG "RECT.DCL"))
  (NEW_DIALOG "RECT" DCL_ID)
;;;;;;;师兄QQ361865648 2007/9/6日添加;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;设置动作,方法有多种,视具体情况而定
 
  (mapcar '(lambda (x) (ACTION_TILE x "(setname $KEY)(done_dialog 1)"))
   '("a01" "a02" "a03" "a04" "a05" "a06" "a07")
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  (setq what (START_DIALOG))
;;;(cond视具体情况可使用cond
  (if (= what 1)

;;记得dwg文件放支持目录
    (command "_insert" dwgfile '(0 0 0) 1 1 0)
  )
;;;  )

  (UNLOAD_DIALOG DCL_ID)
)

futuremh

谢谢楼上的师兄,但是有一点不是太好能不能修改下.就是插入时不是鼠标指定位置,而是它自己给定的位置,有没有方法可以改成自己来指定位置插入呀

caiqs

师兄 QQ361865648  2007/9/6/ 13:16

  (command "_insert" dwgfile '(0 0 0) 1 1 0)

这一行你完全可以根据你自已的要求来定插入点,将'(0 0 0)改成你的点变量就行了

或者这样改成这样(command "_insert"  dwgfile  (getpoint "\n指定插入点: ") 1 1 0)

futuremh

楼上正解,谢谢了!~HOHO