[求助]：致晓东~~~~

daziran

1。晓东网站是常青树，难得。
2。两年前就跟晓东请教关于在lisp函数内自己的DCL内预览dwg图形的问题。可惜一直没有解决。
3。现在看到杨少提供的tools.zip，不知能否解决。
4。也许相关的， 你写的：“可以实现，附件里面的代码演示了如何做，你必须首先必须注册你的VB程序在注册表里面，然后，在VLISP程序中调用附件里面的test函数。或者在你的VBA程序中调用Module1.test宏，看看效果。“


可惜我的钱不够，先预支点行吗，回头我再还 ，：）
我真的挺着急。这对我很重要。

XDSoft

最初由 daziran 发布
[B]1。晓东网站是常青树，难得。
2。两年前就跟晓东请教关于在lisp函数内自己的DCL内预览dwg图形的问题。可惜一直没有解决。
3。现在看到杨少提供的tools.zip，不知能否解决。
4。也许相关的， 你写的：“可以实现，... [/B]

别在用DCL了，用OBJECTDCL吧。

别人也跟我预支，我就不好办了，来这里的都是朋友，你给大家贴几个你写过的程序代码吧。我给你加分。

daziran

1。关于OBJECTDCL能多说几句吗？可以用在lisp内吗？
2。以下是我以前写的一个小程序，用于画折断线（有个转折符号），为的跟晓东要分 ：）

;○画折断线函数
;○画折断线命令

(setq $BRKH 4 ;折符号高
      $lwid3  ;细实线宽
      $pi90 1.5707  ;90度
)

;********************
;○画折断线函数

;参数: pts 两种形式:
;    ⑴ 三个点: 依次为 sp pt ep
;    ⑵ 两个点: 依次为 sp ep(pt取缺省值:sp,ep的中点)
;                                             
;                                        ├ d ┤
;                                        │   p2                  
;                                        │   /           ─────┬
;                                        │ / │   p4               │
;                          sp ──────/   pt   /────── ep │$BRKH
;                                       p1    │ /                  │
;                                              /          ─────┴
;                                             p4                  
;
(defun LBREAK (pts / sp ep  p1 p2 p3 p4 pt w d ang)
   (setq sp (car pts) pt (cadr pts) ep (caddr pts))
   (if (not ep)
       (setq ep pt pt (list (/ (+ (car sp) (car ep)) 2.0)
                            (/ (+ (cadr sp) (cadr ep)) 2.0)
                      )
       )
   )
   (setq ang (angle sp ep))
   (setq d (/ $BRKH 4.0))
   (setq p1 (polar pt (+ ang pi) d))
   (setq p2 (polar pt (+ ang $pi90) (* 2 d)))
   (setq p3 (polar pt (- ang $PI90) (* 2 d)))
   (setq p4 (polar pt ang d))
   (setq w  $lwid3)
   (command "pline" sp "w" w w p1 p2 p3 p4 ep "")   ;画折断线
)  

;○画折断线命令

(defun C:LB (/ sp ep s p1 p2 p3 p4 pt w d ang)
   (setq sp (getpoint "\n始点:"))           ;始点sp
   (if sp (progn
      (setq ep (getpoint sp "\n终点:"))       ;终点ep
      (if ep (progn
        (setq ang (angle sp ep))
        (grdraw sp ep -1 1)                        ;提示线sp-ep
        (setq s t)
        (while s
          (setq pt (getpoint "\n折断符号位置(直接回车放中间):"))
          ;折断符号位置点pt
          (cond ( (not pt)                 ;pt为nil时,令其为中点
                  (setq pt (polar sp ang (/ (distance sp ep ) 2.0)))
                  (setq s nill)
                )
                (t (setq pt (inters sp ep pt (polar pt (+ ang $pi90) 100) nil))
                   (if (< (abs (- (distance sp pt) (distance ep pt)))
                          (* 0.9 (distance sp ep)))
                       (setq s nil)
                   )
                )        ;有pt时,令pt<=pt到sp-ep的垂足
          )  ;end cond
        )    ;end while  当pt在sp-ep线外时,重新输入
        (setq d (/ $brkh 4.0))
        (setq p1 (polar pt (+ ang pi) d))
        (setq p2 (polar pt (+ ang (* 0.5 pi)) (* 2 d)))
        (setq p3 (polar pt (+ ang (* 1.5 pi)) (* 2 d)))
        (setq p4 (polar pt ang d))
        (setq w  $lwid3)
        (grdraw sp ep -1 1)         ; 删除提示线
        (setq oblip (getvar "BLIPMODE"))
        (SETVAR "BLIPMODE" 0)
        (command "pline" sp "w" w w p1 p2 p3 p4 ep "")   ;画折断线
        (SETVAR "BLIPMODE" oblip)
      ));end if1
   ));end if2
   (princ)
)

XDSoft

你用OBJECTDCL，搜索论坛看看，贴过很多图。WIN软件的对话框风格都可以在LISP上使用。