求助------Lisp中如何調整線型比例？

zhanzhe

各位大哥，請問如何在LISP中設置線型比例？因我編好一個小程序，裡面有中心線及虛線等，命令執行完後，中心線總是顯得很密很密。先謝謝大家了！

caoyin

修改dxf组码45

samshs

改线形比例--命令爲GL

zhanzhe

 

樓上的大哥們，這是我寫的小程序，但上面你們的提示，我還是不明白怎麼做，請幫我在LISP中修改一下中心線的線型好嗎？非常感謝！附件為原文件。

AMTONNY

试试偶的这个

(defun C:ll ()
  (setq olderr *error*
 *error* BZERR
  )
  (princ "\n******画虚线******")

  (while t
    (setvar "cmdecho" 0)
  (setq pa (getpoint "\n 请指定虚线第一点:"))
  (setq pb (getpoint pa"\n 请指定下一点:"))

   (setq hh (distance pa pb))
  (command "LINE" pa pb"")
  (if (<= hh 2 )
  (command "change" (entlast) "" "p" "color" "252" "ltype" "DASHED2" "S" "1" ""))
    (if (> hh 2.000001 )
(command "change" (entlast) "" "p" "color" "252" "ltype" "DASHED2" "S" "2" ""))
    (if (> hh 5.00001 )
(command "change" (entlast) "" "p" "color" "252" "ltype" "DASHED2" "S" "5" ""))
    (if (> hh 30.0000 )
(command "change" (entlast) "" "p" "color" "252" "ltype" "DASHED2" "S" "10" ""))
    (if (> hh 50.000001 )
(command "change" (entlast) "" "p" "color" "252" "ltype" "DASHED2" "S" "15" ""))
    ;(if (> hh 90.000001 )
;(command "change" (entlast) "" "p" "color" "252" "ltype" "DASHED2" "S" "30" ""))
      (princ "\n")
    )

  (setq *error* olderr)
  (princ)
)

;;;;;;;;;;********************************

(defun CLL ()
  (setq olderr *error*
 *error* BZERR
  )
  (princ "\n******画中心线******")

  (while t
    (setvar "cmdecho" 0)
  (setq pa (getpoint "\n 请指定中心线第一点:"))
  (setq pb (getpoint pa"\n 请指定下一点:"))

   (setq hh (distance pa pb))
  (command "LINE" pa pb"")
  (if (<= hh 10 )

  (command "change" (entlast) "" "p" "color" "1" "ltype" "CENTER" "S" "1" ""))
    (if (> hh 10.000001 )
(command "change" (entlast) "" "p" "color" "1" "ltype" "CENTER" "S" "2" ""))
    (if (> hh 20.0000 )
(command "change" (entlast) "" "p" "color" "1" "ltype" "CENTER" "S" "5" ""))
    (if (> hh 50.000001 )
(command "change" (entlast) "" "p" "color" "1" "ltype" "CENTER" "S" "8" ""))
    (if (> hh 80.000001 )
(command "change" (entlast) "" "p" "color" "1" "ltype" "CENTER" "S" "12" ""))
      (princ "\n")
    )

  (setq *error* olderr)
  (princ)
)

1993063