[求助]：(setvar "osmode" 0)应放在何处

szx025 · 发表于 2007-5-16 09:46:38

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

下面的程序在执行时,从第三点开始就捕捉不到交点,可能是第五句的设置起了作用,如取消此句,程序画线时会出错.请高手指点
(defun c:wl (/ l1 l2 pt1 pt2 pt3 pt4 ku)
(setq olderr  *error*
   *error* at_err
)
         (setq old_osmode (getvar "osmode"))
      (setq old_CMDECHO (getvar "CMDECHO"))
(setq cl (getvar "clayer"))
(command "-layer" "m" "WALL"
               "C" "1" """")
(if (setq l1 (getpoint "\nPick point:"))
(while (setq l2 (getpoint l1 "\nPick point:"))
第五句 (setvar "osmode" 0)
      (setvar "CMDECHO" 0)
      (setq ku (angle l1 l2))
      (setq pt1 (polar l1 (+ ku (* 0.5 pi)) 120))
      (setq pt2 (polar l1 (+ ku (* 1.5 pi)) 120))
      (setq pt3 (polar l2 (+ ku (* 0.5 pi)) 120))
      (setq pt4 (polar l2 (+ ku (* 1.5 pi)) 120))
      (command "Pline" pt1 "W" "60" "" pt3 "")
         (command "Pline" pt2 "W" "60" "" pt4 "")
      (setq *error* olderr)
      (command "")
      (setq l1 l2)
)
)
(setvar "osmode" old_osmode)
(setvar "CMDECHO" old_CMDECHO)
(setvar "clayer" 0)
(princ)
)

zml84 · 发表于 2007-5-16 10:30:31

修改部分详见下面代码的注释部分：

<CENTER><H1>tmp.lsp</H1></CENTER>
<SCRIPT LANGUAGE="JavaScript">document.write("最后修改时间: " + document.lastModified)
</SCRIPT>
<HR SIZE=5><PRE>(defun C:WL (/ L1 L2 PT1 PT2 PT3 PT4 KU)
;;; (setq OLDERR *ERROR*
;;; *ERROR* AT_ERR
;;; )
;;; (setq OLD_OSMODE (getvar "osmode"))
(setq OLD_CMDECHO (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setq CL (getvar "clayer"))
(command "-layer" "m" "WALL" "C" "1" "" "")
;;PLINEWID 存储多段线的缺省宽度
(setvar "PLINEWID" 60)
(if (setq L1 (getpoint "\nPick point:"))
(while (setq L2 (getpoint L1 "\nPick point:"))
;;; ;;第五句
;;; (setvar "osmode" 0)
(setq KU (angle L1 L2))
(setq PT1 (polar L1 (+ KU (* 0.5 pi)) 120))
(setq PT2 (polar L1 (+ KU (* 1.5 pi)) 120))
(setq PT3 (polar L2 (+ KU (* 0.5 pi)) 120))
(setq PT4 (polar L2 (+ KU (* 1.5 pi)) 120))
;;请注意下面的"non"
(command "_.Pline" "non" PT1 "non" PT3 "")
(command "_.Pline" "non" PT2 "non" PT4 "")
;;; (setq *ERROR* OLDERR)
;;; (command "")
(setq L1 L2)
)
)
;;; (setvar "osmode" OLD_OSMODE)
(setvar "CMDECHO" OLD_CMDECHO)
;;图层名称应是字符串 (setvar "clayer" CL)
(setvar "clayer" "0")
(princ)
)
</PRE>

<CENTER><H1>tmp.lsp</H1></CENTER> 
<SCRIPT LANGUAGE="JavaScript">document.write("最后修改时间: " + document.lastModified) 
</SCRIPT> 
<HR SIZE=5><PRE>(defun C:WL (/ L1 L2 PT1 PT2 PT3 PT4 KU) 
;;;    (setq OLDERR  *ERROR* 
;;;          *ERROR* AT_ERR 
;;;    ) 
;;;    (setq OLD_OSMODE (getvar "osmode")) 
    (setq OLD_CMDECHO (getvar "CMDECHO")) 
    (setvar "CMDECHO" 0) 
    (setq CL (getvar "clayer")) 
    (command "-layer" "m" "WALL" "C" "1" "" "") 
    ;;PLINEWID 存储多段线的缺省宽度 
    (setvar "PLINEWID" 60) 
    (if        (setq L1 (getpoint "\nPick point:")) 
        (while (setq L2 (getpoint L1 "\nPick point:")) 
;;;            ;;第五句 
;;;            (setvar "osmode" 0) 
            (setq KU (angle L1 L2)) 
            (setq PT1 (polar L1 (+ KU (* 0.5 pi)) 120)) 
            (setq PT2 (polar L1 (+ KU (* 1.5 pi)) 120)) 
            (setq PT3 (polar L2 (+ KU (* 0.5 pi)) 120)) 
            (setq PT4 (polar L2 (+ KU (* 1.5 pi)) 120)) 
            ;;请注意下面的"non" 
            (command "_.Pline" "non" PT1 "non" PT3 "") 
            (command "_.Pline" "non" PT2 "non" PT4 "") 
;;;            (setq *ERROR* OLDERR) 
;;;            (command "") 
            (setq L1 L2) 
        ) 
    ) 
;;;    (setvar "osmode" OLD_OSMODE) 
    (setvar "CMDECHO" OLD_CMDECHO) 
    ;;图层名称应是字符串  (setvar "clayer" CL)   
    (setvar "clayer" "0") 
    (princ) 
) 
</PRE>

szx025 · 发表于 2007-5-16 11:29:44

谢谢ZML84,问题解决,
能否帮我把程序在完善以下,
在交点处让线条自动封闭

zml84 · 发表于 2007-5-16 12:32:48

<CENTER><H1>tmp.lsp</H1></CENTER>
<SCRIPT LANGUAGE="JavaScript">document.write("最后修改时间: " + document.lastModified)
</SCRIPT>
<HR SIZE=5><PRE>(defun C:WL (/ L1 L2 PT1 PT2 PT3 PT4 KU)
(if (setq L1 (getpoint "\nPick point:"))
(progn
(setq OLD_CMDECHO (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setq CL (getvar "clayer"))
(command "-layer" "m" "WALL" "C" "1" "" "")
;;PLINEWID 存储多段线的缺省宽度
(setvar "PLINEWID" 60)
(while (setq L2 (getpoint L1 "\nPick point:"))
(setq KU (angle L1 L2))
(setq PT1 (polar L1 (+ KU (* 0.5 pi)) 120))
(setq PT2 (polar L1 (+ KU (* 1.5 pi)) 120))
(setq PT3 (polar L2 (+ KU (* 0.5 pi)) 120))
(setq PT4 (polar L2 (+ KU (* 1.5 pi)) 120))
;;绘制
(command "_.Pline" "non" PT1 "non" PT3 "")
(setq ENT13 (entlast)
S1 (list ENT13 PT1)
)
(command "_.Pline" "non" PT2 "non" PT4 "")
(setq ENT24 (entlast)
S2 (list ENT24 PT2)
)
;;对上一交点处尝试进行修剪或延伸
(if S3
(progn
(command "_.TRIM" S1 S3 "" S1 S3 "")
(command "_.TRIM" S2 S4 "" S2 S4 "")
(command "_.EXTEND" S1 S3 "" S1 S3 "")
(command "_.EXTEND" S2 S4 "" S2 S4 "")
)
)
;;为下一段做准备
(setq S3 (list ENT13 PT3)
S4 (list ENT24 PT4)
L1 L2
)
)
;;图层名称应是字符串
(setvar "clayer" CL)
(setvar "CMDECHO" OLD_CMDECHO)
)
)
(princ)
)
</PRE>

<CENTER><H1>tmp.lsp</H1></CENTER> 
<SCRIPT LANGUAGE="JavaScript">document.write("最后修改时间: " + document.lastModified) 
</SCRIPT> 
<HR SIZE=5><PRE>(defun C:WL (/ L1 L2 PT1 PT2 PT3 PT4 KU) 
 
    (if        (setq L1 (getpoint "\nPick point:")) 
        (progn 
            (setq OLD_CMDECHO (getvar "CMDECHO")) 
            (setvar "CMDECHO" 0) 
            (setq CL (getvar "clayer")) 
            (command "-layer" "m" "WALL" "C" "1" "" "") 
            ;;PLINEWID 存储多段线的缺省宽度 
            (setvar "PLINEWID" 60) 
            (while (setq L2 (getpoint L1 "\nPick point:")) 
 
                (setq KU (angle L1 L2)) 
                (setq PT1 (polar L1 (+ KU (* 0.5 pi)) 120)) 
                (setq PT2 (polar L1 (+ KU (* 1.5 pi)) 120)) 
                (setq PT3 (polar L2 (+ KU (* 0.5 pi)) 120)) 
                (setq PT4 (polar L2 (+ KU (* 1.5 pi)) 120)) 
 
                ;;绘制 
                (command "_.Pline" "non" PT1 "non" PT3 "") 
                (setq ENT13 (entlast) 
                      S1    (list ENT13 PT1) 
                ) 
                (command "_.Pline" "non" PT2 "non" PT4 "") 
                (setq ENT24 (entlast) 
                      S2    (list ENT24 PT2) 
                ) 
 
                ;;对上一交点处尝试进行修剪或延伸 
                (if S3 
                    (progn 
                        (command "_.TRIM" S1 S3 "" S1 S3 "") 
                        (command "_.TRIM" S2 S4 "" S2 S4 "") 
                        (command "_.EXTEND" S1 S3 "" S1 S3 "") 
                        (command "_.EXTEND" S2 S4 "" S2 S4 "") 
                    ) 
                ) 
                ;;为下一段做准备 
                (setq S3 (list ENT13 PT3) 
                      S4 (list ENT24 PT4) 
                      L1 L2 
                ) 
            ) 
 
 
 
            ;;图层名称应是字符串 
            (setvar "clayer" CL) 
            (setvar "CMDECHO" OLD_CMDECHO) 
        ) 
    ) 
    (princ) 
) 
</PRE>

通过上面的练习，我们可以得出：
1.合理的使用COMMAND 可以减少点位计算；
2.应该尽可能的不去使用错误处理函数，以简化代码。事实上这一点应该可以做到。
3.cad中已实现的功能或没有必要自己再去编写（练习的除外）。既然花钱买了cad（盗版的也不利外），那它就应该为我们做工作。

szx025 · 发表于 2007-5-16 13:30:44

再次谢谢ZML84
TRIM命令把相交的线剪切了,但EXTEND没起作用,我想是因为外侧的线只能都延长才能相交,能否用FILLET命名实现两线相交?
另:最后的交点出TRIM命令没起作用

zml84 · 发表于 2007-5-16 13:43:02

请尝试添加：
(setvar "EDGEMODE" 1)

szx025 · 发表于 2007-5-16 14:10:57

问题解决,
但最后一个交点处未能执行剪切和延长命令

zml84 · 发表于 2007-5-16 15:35:51

专业相隔，现在我有点不明白你的需求了。

szx025 · 发表于 2007-5-16 15:58:12

zml84先生,真是很感激你,程序经你的修改,已经很满意了.
在程序应用过程中,有时候起点和终点为同一点,这时候终点处(也是起点)未能执行剪切和延长命令

zml84 · 发表于 2007-5-16 21:58:11

不好意思，晚上考试了，没及时回复你。
我给提个思路吧，
要实现闭合，可以在绘制第一对直线后，将这两根直线记下来，
然后在提示用户点取下一点的时候新增一个选项“C”，当用户相应“C”后，取出最后两根直线与第一次记录下的直线进行修剪即可实现。
 
你的这个应用，其实通过先绘制pline，然后双向偏移，较之更为方便。
本帖4楼第3条就是这个意思。

zml84 · 发表于 2007-5-17 08:09:51

不好意思，晚上考试了，没及时回复你。
我给提个思路吧，
要实现闭合，可以在绘制第一对直线后，将这两根直线记下来，
然后在提示用户点取下一点的时候新增一个选项“C”，当用户相应“C”后，取出最后两根直线与第一次记录下的直线进行修剪即可实现。

你的这个应用，其实通过先绘制pline，然后双向偏移，较之更为方便。
本帖4楼第3条就是这个意思。

okokok235 · 发表于 2007-5-17 09:04:37

论坛里的热心高手真多啊，学习中。

TLHMQH · 发表于 2007-5-18 00:44:52

http://p4.xdcad.net/forum/showthread.php?s=&threadid=626176

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：(setvar "osmode" 0)应放在何处

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [求助]：(setvar "osmode" 0)应放在何处