artken 发表于 2008-6-18 18:52:00

请教一下DCL的问题

本帖最后由 artken 于 2014-8-31 20:55 编辑

请教一下DCL的问题.谢谢

ZZXXQQ 发表于 2008-6-18 23:12:00


(DEFUN pbohatchdcl ()
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE") OLDL (GETVAR "CLAYER"))
(SETVAR "OSMODE" 0)
(IF (> (SETQ DCL_ID (LOAD_DIALOG "pbohatch")) 0)
(IF (NEW_DIALOG "pbohatch" DCL_ID "") (PROGN
   (mode_tile "scale" 2)
   (action_tile "accept" "(GETDATA) (DONE_DIALOG 1)")
   (action_tile "cancel" "(DONE_DIALOG 0)")
   (SETQ RE (START_DIALOG))
) (PROGN
   (ALERT "Unable to display dialog box!\n无法显示对话框！")
   (UNLOAD_DIALOG DCL_ID)
))
(ALERT "Unable to load dialog box!\n无法装载对话框！")
)
(SETVAR "CLAYER" OLDL)
(SETVAR "OSMODE" OLDOS)
(SETVAR "CMDECHO" 1)
(PRINC)
)
(DEFUN GETDATA ()
(SETQ SCALE (ATOF (GET_TILE "scale"))
       angle (ATOF (GET_TILE "angle"))
)
)

byghbcx 发表于 2008-6-19 07:52:00

加mode_tile函数

artken 发表于 2008-6-19 10:42:00

<p>谢谢两位。。</p><p></p><p>搞定了&nbsp;<font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/mode_tile.htm" target="_black"><font color="#0000ff">mode_tile</font></a>
                <font color="#ff00ff">"scale"</font>
                <font color="#008000">3</font><font color="#ff0000">)</font><br/></p>
页: [1]
查看完整版本: 请教一下DCL的问题