[LISP程序]：为何线宽突然加粗呢？

handonglong · 发表于 2005-4-7 10:30:27

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

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

×

最近编写了一小程序，通过加载，运行，第一次能很好的运行，第二次就出问题了，有一部分线在屏幕上看特粗，通过ctrl+1键查看特性，知全局宽度为0.9，其他的同层上的线全局宽度都是0，如果要正常运行，就得关闭CAD，然后再加载！不过就只能运行一次正常，请问问题出在哪呢？请各位为我参祥一下！

jintly · 发表于 2005-4-7 10:31:35

我也遇到过此类的情况，期待能有人解答一下下～

ljpnb · 发表于 2005-4-7 11:57:05

贴出“有问题程序”才可以找原因啊。。。。

LADESIGNER · 发表于 2005-4-7 14:11:58

是否与变量“plinewid“有关？

handonglong · 发表于 2005-4-7 14:45:36

下面是绘制皮带轮的dcl和lsp程序，在附件中也可以下载！
请各为帮我找找线条变粗的原因，和程序运行稳定不怎么好的原因！我是初学者，也希望大家多提意见，谢谢！
/*绘制带轮对话框设计dailun.dcl*/
   dailun:dialog{
   label="绘制V型带轮";
   :image{
      label="image";
      key="key_image";
      width=16;
      aspect_ratio=2;
      color=4;
      }
   :row{
      :column{
         :popup_list{label = "带型";key = "key_belt_type";edit_width = 6;
                  list = "Y\nZ\nA\nB\nC\nD\nE";}
         :edit_box{label = "轮轴直径";key = "key_shaft";
                  edit_width = 6.7;}
            }
      :column{
         :popup_list{label = "轮直径";key = "key_diameter";edit_width = 6;}
         :edit_box{label = "键槽深度";key = "key_dep";
                        edit_width = 6.7;}
                     }
         :column{
            :popup_list{label = "带的根数";key = "key_number";edit_width = 6;
                     list = "1\n2\n3\n4\n5\n6\n7\n8\n9\n10\n11\n12\n13\n14\n15\n16\n17\n18\n19\n20\n21\n22\n23\n24\n25\n26\n27\n28\n29\n30\n31\n32\n33\n34\n35\n36\n37\n38\n39\n40\n41\n42\n43\n44\n45\n46\n47\n48\n49\n50";}
            :edit_box{label = "键寛";key = "key_wid";
                     edit_width = 6.7;}
               }
         }
      ok_cancel_help;
   }



；；；；；；；；；；；；；；
；；；；；；；；；；；；；；
；；；；；；；；；；；；；；
；；；；；；；；；；；；；；
;主程序(dailun.lsp)
(DEFUN C:dailun()
   (setq return_value (load_dialog "dailun.dcl"))
   (setq what_next 2)
   (setq cnt 1)
   (while (>= what_next 2)
      (if (null (new_dialog "dailun" return_value))
         (exit)
      );end if
      (initial)
      (start_list "key_diameter")
      (mapcar 'add_list ddy1_list)
      (end_list)
      (change)
      (action_tile "accept" "(getdata)(done_dialog 1)");用getdata函数获取用户输入数据
      (action_tile "key_diameter" "(setq m_diameter $value)");获取直径信息
      (action_tile "key_belt_type" "(setq category $value)(change)");获取带型信息
      (setq what_next (start_dialog)) ;显示对框
      (if(= what_next 1)(draw))
   )

   (unload_dialog return_value)
   (princ)
   )
   ;绘图函数
   (defun draw(/ Po Pt Pt1 P0 P1 xx point1 point2)
   ;将对象捕捉等全部关闭
   (command "layer" "m" "0" "L" "continuous" "0" "");打开零层
   (setq Po (getpoint "\n输入基点: "))
   (setq P0 Po);保存基点坐标
   (setq Po (polar Po (* 0.5 pi) (/ m_d 2)))
   ;准备绘制带轮槽
   (setq xx (/ (- m_dw m_d) 2))
   (setq Pt (polar Po (* 0.5 pi) xx))
   (setq p11 pt)
   (command "pline" Po Pt)
      (command (setq Pt1 (polar Pt 0 a1)))
   (setq p12 (polar p11 0 a1))
   (setq n m_num)
   ;(setq counter 0)
   (setq Pt2 Pt1)
   (setq cta (/ phi 2))
   ;开始循环绘制带轮齿

      (command
         (setq Pt1 (polar Pt1 (- cta (* 0.5 pi)) L))
      (setq p13 pt1)
         (setq Pt1 (polar Pt1 0 a2))
      (setq p14 pt1)
         (setq Pt1 (polar Pt1 (- (* 0.5 pi) cta ) L))
      (setq p15 pt1)
         (setq Pt1 (polar Pt1 0 a3))
      (setq p16 pt1)
         )
   (repeat (- n 2)
      (command

         (setq Pt1 (polar Pt1 (- cta (* 0.5 pi)) L))
         (setq Pt1 (polar Pt1 0 a2))
         (setq Pt1 (polar Pt1 (- (* 0.5 pi) cta ) L))
      (setq Pt1 (polar Pt1 0 a3))
         )
      )
   ;绘制齿轮末端
   (command
      (setq Pt1 (polar Pt1 (- cta (* 0.5 pi)) L))
      (setq Pt1 (polar Pt1 0 a2))
      (setq Pt1 (polar Pt1 (- (* 0.5 pi) cta) L))
      (setq Pt1 (polar Pt1 0 a1))


      (setq Pt1 (polar Pt1 (* -0.5 pi) xx))
      "c"
      )

      ;存储对象
      (setq object1 (entlast))
      ;绘制两线

   (setq c0 (polar Pt1 (* 0.5 pi) xx))

      ;画右边的竖线
      (setq Pt (polar Pt1 (* -0.5 pi) (/ m_d 2)))
      (setq P1 Pt)

      (command "pline" Pt1 Pt "")


      ;画左边的竖线
      (setq Pt1 (polar P0 (* 0.5 pi) (/ m_d 2)))
      (command "pline" P0 Pt1 "")

      ;新建2层层
      (command "layer" "m" "2" "c" "red" "2" "L" "center" "2" "")
      (setq point1 (polar P0 (* 0.5 pi) (/ m_dd 2)))
      (setq point2 (polar P1 (* 0.5 pi) (/ m_dd 2)))

      ;画上面的齿轮基准线
      ;(command "line" point1 point2 "")
      (command "line" (polar P0 (* -1 pi) (/ m_d 8)) (polar P1 0 (/ m_d 8)) "");画中心线

      (setq ss (ssget "X" (list (cons 8 "0"))));选取零层上的实体
      (command "layer" "s" "0" "");打开层
      (command "mirror" ss "" P0 P1 "");关于中心线进行镜像对称

      (setq point1 (polar P0 (* 0.5 pi) (/ m_d 2)))
      (setq point2 (polar P0 (* 1.5 pi) (/ m_dd 2)))
(setq pp point2)

      ;(command "hatch" "ansi31" "" "0" object1 pp"")
      ;绘制齿轮中线
      ;打开层

      (setq point1 (polar P0 (* 0.5 pi) (/ m_dd 2)))
      (setq point2 (polar P1 (* 0.5 pi) (/ m_dd 2)))
   ; (command "line" point1 point2 "")
      (setq point3 (polar P0 (* 1.5 pi) (/ m_dd 2)))
      (setq point4 (polar P1 (* 1.5 pi) (/ m_dd 2)))
      ;(command "line" point3 point4 "")
   (command "layer" "m" "4" "c" "green" "4" "L" "continuous" "4" "")
   (command "dim" "ang" p13 p15 (list (+ (car p12) (/ m_b0 2))(+(cadr p12) (/ m_h 2.5) ))""phi"%%D"(list (+ (car p12) (/ m_b0 2))(+(cadr p12)(/ m_b0 2.5)))"exit")
(command "layer" "m" "3" "c" "yellow" "3" "L" "continuous" "3" "")
   (command "hatch" "ansi31" "" "0" object1 pp"")
   ;画侧视图
      ;画中心线
(setq c1  (polar c0 pi (/ a1 2)))
(setq c2  (polar c1 (* pi (/ 120.0 180))6))
(setq c3  (polar c2 0 6))
(setq c4  (polar c1 (* pi (/ 60.0 180))12))
   (command "layer" "s" "4" "")
(command "line" c1 c2 "")
(command "line" c3 c2 "")
(command "line" c1 c4 "")
(command "text" "m"(list (/ (+(car c2)(car c3))2)(+(cadr c2)2))3 0 "3.5")

(setq P3 (polar P0 (* 0.5 pi) (/ m_d 2)))
(setq d1 (list (-(car p3)10)(+(cadr p3)1.5)))
(setq d2 (list (+(car d1)2)(cadr d1)))
(setq d3 (list (-(car d1)2)(cadr d1)))
(setq d4 (list (car d1)(+(cadr d1)4)))
(setq d5 (list (car d1)(+(cadr d1)6.5)))
(command "line" d2 d3 "")
(command "line" d1 d4 "")
(command "circle" d5 2.5 )
(command "text""m"d5 3.5 0 "A")
(setq e1 (list (car p1)(+(cadr p1)(/ m_dw 3))))
(setq e2 (list (+(car e1) 2.5)(cadr e1)))
(setq e3 (list (+(car e2) 10)(cadr e1)))
(setq e4 (list (car e3)(+(cadr e3)2.5)))
(setq e41 (list (+(car e3)4)(cadr e4)))
(setq e5 (list (+(car e3) 16)(-(cadr e1)2.5)))
(setq e51 (list (-(car e5) 4)(cadr e5)))
(setq e6 (list (+(car e3) 14)(cadr e1)))
(setq e7 (list (+(car e3) 8)(cadr e1)))
(setq e8 (list (+(car e3) 2)(-(cadr e1)2)))
(setq e9 (list (+(car e8)1.5)(cadr e8)))
(setq e10 (list (-(car e8)1.5)(cadr e8)))
(setq e11 (list (car e8)(+(cadr e8)4)))
(command "line" e9 e10 "")
(command "line" e8 e11 "")
(command "text""m"e7 3.5 0 "0.05")
(command "text""m"e6 3.5 0 "A")
(command "rectang" e4 e5)
(command "rectang" e41 e51)
(command "pline" e1 "w" 0 0.9 e2"")
(command "line" e2 e3"")
      (setq cir_p0 (polar P1 0 (+ (/ m_dw 2)50)))
      (setq cir_p1 (polar cir_p0 (* 1.5 pi) (+ (/ m_dw 2) 5)))
      (setq cir_p2 (polar cir_p0 (* 0.5 pi) (+ (/ m_dw 2) 5)))
      (setq cir_p3 (polar cir_p0 (* 1.0 pi) (+ (/ m_dw 2) 5)))
      (setq cir_p4 (polar cir_p0 0 (+ (/ m_dw 2) 5)))

   (command "layer" "s" "2" "")
      (command "circle"  cir_p0  (-(/ m_dd 2)m_h))
      (command "line" cir_p2 cir_p1 "")
      (command "line" cir_p3 cir_p4 "")
      ;画实体部分
      (command "layer" "s" "0" "");打开层
      (command "circle"  cir_p0 (/ m_dw 2))
      (setq x (/ (sqrt (- (* m_d m_d) (* m_wid m_wid))) 2))
      (setq cir_c1 (polar (polar cir_p0 0 x) (* 0.5 pi) (/ m_wid 2)))
      (setq cir_c2 (polar cir_c1 (* 1.5 pi) m_wid))
      (setq p17 (polar cir_c1 0 m_dep))
      (setq p18 (polar cir_c2 0 m_dep))
      (command "arc" "c" cir_p0 cir_c1 cir_c2)
      (command "line" cir_c1
         (setq temp (polar cir_c1 0 m_dep))
         (setq temp (polar temp (* -0.5 pi) m_wid))
         (setq temp (polar temp (* -1 pi) m_dep))
         ""

         )


   ;(setq P3 (polar P0 (* 0.5 pi) (/ m_d 2)))
   ; (setq P4 (polar P1 (* 0.5 pi) (/ m_d 2)))
   (setq P5 (polar P0 (* 1.5 pi) (/ m_d 2)))
   ;(setq P6 (polar P1 (* 1.5 pi) (/ m_d 2)))
   (setq P7 (polar P0 (* 0.5 pi) (/ m_dw 2)))
   ;(setq P8 (polar P1 (* 0.5 pi) (/ m_dw 2)))
   (setq P9 (polar P0 (* 1.5 pi) (/ m_dw 2)))
   ;(setq P10 (polar P1 (* 1.5 pi) (/ m_dw 2)))
   (setq b1 (list (+ (car p9)m_f)(+(cadr p9) m_h 5)))
   (setq b2 (polar b1 0 m_e))


      (command "layer" "s" "4" "")
   (command "dim" "ver" p3 p5 (list (- (car p0) 10)  (cadr p0) )(rtos m_d 2 0))
   (command "dim" "ver" (list (car p7)(-(cadr p7)m_h))(list (car p9)(+(cadr p9)m_h)) (list (- (car p0) 20)  (cadr p0) )(rtos (- m_dw (* 2 m_h)) 2 0))
   (command "dim" "ver" p7 p9 (list (- (car p0) 30)  (cadr p0) )(rtos m_dw 2 0))
   (command "dim" "hor" point3 point4 (list (+(/ (car p0)2)(/ (car p1)2))  (-(cadr point3)25) )(rtos (-(car p1)(car p0)) 2 0))
(command "dim" "hor" p11 p12 (list (+ (car p11)(/ a1 2))  (+(cadr p11 )m_h))(rtos (-(car p12)(car p11)) 2 0))
;(command "dim" "hor" p12 p13 (list (+ (car p12)(/ (-(car p13)(car p12)) 2))  (+(cadr p11 )20))(rtos (-(car p13)(car p12)) 2 0))
(command "dim" "hor" p13 p14 (list (+ (car p13)(/ a2 2))  (-(cadr p13 )10))(rtos (-(car p14)(car p13)) 2 0))
(command "dim" "hor" p12 p15 (list (+ (car p12)(/ (-(car p15)(car p12)) 2))  (+(cadr p11 )m_h))(rtos (-(car p15)(car p12)) 2 0))
(command "dim" "hor" p15 p16 (list (+ (car p15)(/ a3 2))  (+(cadr p15 )m_h))(rtos (-(car p16)(car p15)) 2 0))
(command "dim" "ver" p17 p18 (list (+ (car p17) 10) (- (cadr p17)(/ m_wid 2) ))(rtos m_wid 2 0))
(command "dim" "hor" cir_c2 p18 (list (+ (car cir_c2)(/ m_dep 2))  (-(cadr cir_c2 )10))(rtos m_dep 2 0))
(command "dim" "hor" p9 b1 (list (+ (car p9)(/ m_f 2))  (-(cadr p9 )10))(rtos m_f 2 0))
(command "dim" "hor" b1 b2 (list (+ (car b1)(/ m_e 2))  (-(cadr p9 )10))(rtos m_e 2 0))

;(command "dim" "ang" p13 p15 (list (+ (car p12) (/ a2 2)(/(-(car p13)(car p12))2))(+(cadr p12)10))"20%%D"(list (+ (car p12) (/ a2 2)(/(-(car p13)(car p12))2))(+(cadr p12)10))"exit")
   (princ)
   )

      ;获取数据函数
      (defun getdata(/ m_temp temp_list)
      (setq m_type (get_tile "key_belt_type"));获取带型
      ;获取轮径(开始)
      (setq m_temp (get_tile "key_diameter"))
      (setq m_type (atoi m_type))
      (setq temp_list (eval (read (strcat "dd" (nth m_type '("y" "z" "a"
   "b" "c" "d" "e")) "1_list"))))
      (setq m_dd (nth (atoi m_temp) temp_list))
      ;获取轮径(结束)
      ;获取带轮轴径
      (setq m_d (get_tile "key_shaft"))
      (setq m_d (atoi m_d))
      ;获取槽深
      (setq m_dep (atof (get_tile "key_dep")))
      ;获取槽寛
      (setq m_wid (atof (get_tile "key_wid")))
      ;获取带数
      (setq m_num (+ 1 (atoi (get_tile "key_number"))))
      ;调用转换数据函数
         (ChangeData)
         )


      ;转换数据
      (defun ChangeData(/ temp_list)
         ;根据带型,选取不同的数据
         (setq temp_list (eval (read (strcat "data_" (nth m_type '("y" "z"
         "a" "b" "c" "d" "e")) "_list"))))
         ;取f,e,b0,h,ha
         (setq m_f  (nth 0 temp_list));取f
         (setq m_e  (nth 1 temp_list));取e
         (setq m_b0 (nth 2 temp_list));取b0
         (setq m_h  (nth 3 temp_list));取h
         (setq m_ha (nth 4 temp_list));取ha
         ;判断phi值
         (setq m_dd (atof m_dd))
         (cond
            ((= m_type 0) (if (<= m_dd 60) (setq phi 32) (setq phi 36)))
            ((= m_type 1) (if (<= m_dd 80) (setq phi 34) (setq phi 38)))
            ((= m_type 2) (if (<= m_dd 118) (setq phi 34) (setq phi 38)))
            ((= m_type 3) (if (<= m_dd 190) (setq phi 34) (setq phi 38)))
            ((= m_type 4) (if (<= m_dd 315) (setq phi 34) (setq phi 38)))
            ((= m_type 5) (if (<= m_dd 475) (setq phi 36) (setq phi 38)))
            ((= m_type 6) (if (<= m_dd 600) (setq phi 36) (setq phi 38)))
            )
         ;开始计算数据
         (setq phi (dtr phi))
         (setq L (/ m_h (cos (* 0.5 phi))));计算L值
         (setq a2 (- m_b0 (* 2 L (sin (* 0.5 phi)))));计算a2
         (setq a1 (- m_f (* 0.5 a2) (* L (sin (* 0.5 phi)))));计算a1
         (setq a3 (- m_e a2 (* 2 (* L (sin (* 0.5 phi))))));计算a3
         (setq m_dw (+ m_dd (* 2 m_ha)))
         )

      ;初始化对话框
   (defun initial();/ ddy1_list ddz1_list dda1_list ddb1_list ddc1_list ddd1_list dde1_list)
         ;设置轮直径
         (setq ddy1_list'( "28" "31.5" "35.5" "40" "45" "50" ))
         (setq ddz1_list '("50" "56" "63" "71" "75" "80" "90"))
         (setq dda1_list '("75" "80" "85" "90" "95" "100" "106" "112" "118" "125" "132"
                           "140" "150" "160" "180")
         )
         (setq ddb1_list'("125" "132" "140" "150" "160" "170" "180" "200" "224" "250"
                           "280")
         )
         (setq ddc1_list'("200" "212" "224" "236" "250" "265" "280" "300" "315" "335"
                           "355" "400" "450")
         )
         (setq ddd1_list'("355" "375" "400" "425" "450" "475" "500" "560" "600" "630"
                           "710" "750" "800")
         )
         (setq dde1_list '("500" "530" "560" "600" "630" "670" "710" "800" "900" "1000"
                           "1120")
         )
   ;设置轮的槽参数f,e,b0,h,ha
   (setq data_y_list '(6 8 5.3 6 1.6))
   (setq data_z_list '(7 12 8.5 9 2.0))
   (setq data_a_list '(9.5 15 11.0 11.5 2.75))
   (setq data_b_list '(12.5 19 14.0 14.5 3.5))
   (setq data_c_list '(17 25.5 19.0 19 4.8))
   (setq data_d_list '(24 37 27.0 28 8.1))
   (setq data_e_list '(29 44.5 32.0 33 9.6))
   ;设置对话框初始化参数
   (setq category "-1")
   (show "key_image" "dailun.sld")
   )
   ;设置相关动作
   (defun change()
      (start_list "key_diameter")
      (if (/= category "-1")
      (progn
         (cond
            ((= category "0")
            (mapcar 'add_list ddy1_list)
            );Y型带
            ((= category "1")
            (mapcar 'add_list ddz1_list)
            );Z型带
            ((= category "2")
            (mapcar 'add_list dda1_list)
            );A型带
            ((= category "3")
            (mapcar 'add_list ddb1_list)
            );B型带
            ((= category "4")
            (mapcar 'add_list ddc1_list)
            );C型带
            ((= category "5")
            (mapcar 'add_list ddd1_list)
            );D型带
            ((= category "6")
            (mapcar 'add_list dde1_list)
            );E型带
      )
      )
      (mapcar ' add_list ddy1_list)
      )

      (end_list)
      )

   ;显示图块函数
   (defun show(image_name file_name)
   (setq x1 (dimx_tile image_name))
   (setq y1 (dimy_tile image_name))
   (start_image image_name);
   (slide_image 0 0 x1 y1 file_name)
   (end_image)
   )
   (defun dtr (cta) (* pi (/ cta 180.0)))

LADESIGNER · 发表于 2005-4-8 21:04:54

(command "pline" e1 "w" 0 0.9 e2"")
执行后系统变量“plinewid”变为0.9。再画pl线线宽就是0.9。
在程序最后加上（setvar “plinewid” 0）就ok了。

czg09180274 · 发表于 2005-4-11 13:19:07

像你这样的程序
最好在程序开始的时候先保存原多段线线宽
(setq oldwid (getvar "plinewid"))
程序运行结束后将线宽恢复到原始值：
(setvar "plinewid" oldwid)
这样比较好控制。

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

[LISP程序]：为何线宽突然加粗呢？

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

相关帖子

程序