[求助]：怎样定义线的宽度呢？

dzyh

怎样在一个LSP中使的连线宽度设为0.3呢

xyp1964

(setvar "plinewid"0.3)

dzyh

试了一下＜，在我的程序里没有成功，请帮我看一下应该加在什么位置呢？




(defun aupb-err (s)                    ; If an error (such as CTRL-C) occurs
                                      ; while this command is active...
(if (/= s "Function cancelled")
    (princ (strcat "\nError: " s))
)
  (setq sstt nil)
  (setq ss nil)
  (setq VerLst nil)
  (setq nss nil)
(e-set)
(setq *error* olderr)                 ; Restore old *error* handler
(princ)
)

;-------------------- function to get ins of block ---------------------
    (defun getbi ( bname / insp)
     (setq insp (cdr (assoc 10 (entget bname))))
      insp
    )

;-------------------- rearrage selection ---------------------------------
        (defun rass ( ass / counta countb aname ains  dss nss dname
                      d n dmin a )
         (setq a (entsel "点取第一个设备: "))
         (setq aname (car a))
         (setq dss (ssdel aname ass))
         (setq n (sslength dss))
         (setq nss (ssadd))
         (setq nss (ssadd aname nss))
         (repeat n
            (setq ains (getbi aname))
            (setq nme (ssname dss 0))
            (setq dmin (distance ains (getbi nme)))
            (setq countb 0)
            (while (< countb (sslength dss))
               (setq dname (ssname dss countb))
               (setq d (distance ains (getbi dname)))
               (if (>= dmin d) (progn
               (setq aname dname)
               (setq dmin d))
              );end if
             (setq countb (1+ countb))
             );end while
            (setq nss (ssadd aname nss))
             (setq dss (ssdel aname dss))
          );end n
        nss
        );end defun

;--------------------------------------------------------------------------






;--------------------------- get vertex of a block -------------------

(defun blkver (/ VerLst Subent swhb vertex ls)
   (setq SubEnt (entnext EntNme))
    (setq swhb (assoc 66 (entget EntNme)))
    (IF swhb (progn
     (setq VerLst '())
       (setq vertex (cdr (assoc 10 (entget SubEnt))))
       (While vertex
            (setq Verlst (append VerLst (list vertex)))
               (setq SubEnt (entnext SubEnt))
                (setq vertex (cdr (assoc 10 (entget SubEnt))))
       )
                );end pro
                (progn
                   (setq ls (cdr (assoc 10 (entget entnme))))
                   (setq VerLst (list ls))));end pro if
      VerLst
  )

;-------------------------------------------------------------------------
      (defun c:aupb (/ sst ent1 ent2 count0 count1 count2 blst1 blst2
                       p1 p2 pp1 pp2 pop1 dd1 dm1 dm
                       entnme ss sstt counts swha)



         (setq plw (* 0.3 ))


        ;  (initget "Select Near")
         ; (setq swha (getkword "选择方式S..最近方式N <S>: "))
           (setq swha "Select")
           (princ"\n请逐个选设备,第1回路...")
           (setq ss (ssget))
           (if (and ss (= swha "Near" )) (setq ss (rass ss)))
        ;  (if (not swha) (setq swha "Select"))
          (setq sstt ( append sstt (list ss)))
           (setq counts 1)
        (while (and ss (< counts 5))
          (princ (strcat "\n连第" (itoa (1+ counts)) "回路...<回车结束>"))
          (setq ss (ssget))
          (if (and ss (= swha "Near")) (setq ss (rass ss)))
          (if ss (setq sstt ( append sstt (list ss))))
           (setq counts (1+ counts))
       )
           (setq counts 0)
  (while (< counts (length sstt))
           (setq sst (nth counts sstt))
           (setq ent1 (ssname sst 0))
           (setq entnme ent1)
           (setq blst1 (blkver))
           (setq count0 1)
         (while (< count0 (sslength sst))
                (setq ent2 (ssname sst count0))
                (setq entnme ent2)
                (setq blst2 (blkver))
                (setq dm (distance (nth 0 blst1) (nth 0 blst2)))
                (setq count2 0)
      (while (< count2  (length blst2))
                      (setq p2 (nth count2 blst2))
                      (setq p1 (nth 0 blst1))
                      (setq dm1 (distance p1 p2))
                      (setq count1 0)
               (while (< count1 (length blst1))
                      (setq p1 (nth count1 blst1))
                      (setq dd1 (distance p1 p2))
                      (if (>= dm1 dd1) (progn
                          (setq dm1 dd1)
                          (setq pop1 p1)));end if
                      (setq count1 (1+ count1))
                )

                     (if (>= dm dm1) (progn
                         (setq dm dm1)
                         (setq pp2 p2)
                         (setq pp1 pop1)));end if
                 (setq count2 (1+ count2))
     );end while count2
                      (command "pline" pp1 "w" plw "" pp2 "")
                      (setq count0 (1+ count0))
                      (setq ent1 ent2)
                      (setq blst1 blst2)
           );end while selection
     (setq counts (1+ counts))
);end while
   
      );end defun



       其中　 (setq plw (* 0.3 ))　是不是就是定义的，为什么不好用呢／

xyp1964

[php]
(setq plw (* 0.3 ))这句明显有错误，看看setq函数如何用？
直接用(setvar "plinewid"0.3)就为0.3宽，不想用宽线就(setvar "plinewid"0)！
[/php]