谁能给我详细解释下这个程序哦，怎么就是画虚线的呢？？各个IF里边hh什么意义啊

L。小妖。

;;vlisp 3.0
;;BY Amtonny
;;2009.04.02
(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 0.7000000 )
  (command "change" (entlast) "" "p" "color" "252" "ltype" "DASHED2" "S" "0.5" ""))
  (if (> hh 0.70000001 )
  (command "change" (entlast) "" "p" "color" "252" "ltype" "DASHED2" "S" "0.7" ""))
  (if (> hh 1.20000001 )
  (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" "20" ""))
      (princ "\n")
    )
  (setq *error* olderr)
  (princ)
)




该贴已经同步到 L。小妖。的微博

qq229918602

L。小妖。 发表于 2012-6-3 22:18
根据自己需要来分段的话，那我懂了~你说的很明白，谢谢你哦！！

都是这样过来的。加油吧

ZZXXQQ

hh是所画的线长

wowan1314

很基础的东西。建议看看明经LSP教程就明白了。

L。小妖。

ZZXXQQ 发表于 2012-6-2 09:52
hh是所画的线长

是线长。但是<= hh 0.7000000 是什么意思呢，  
为什么要按下面这样分类呢？这样分类就能把任何实线改成虚线么？(if (<= hh 0.7000000 )
   (if (> hh 0.70000001 )
    (if (> hh 1.20000001 )
     (if (> hh 2.000001 )
    (if (> hh 5.00001 )
    (if (> hh 30.0000 )
    (if (> hh 50.000001 )
    (if (> hh 90.000001 )

L。小妖。

wowan1314 发表于 2012-6-2 10:50
很基础的东西。建议看看明经LSP教程就明白了。

哦。就是不太明白为何如此分类，怎么就能把任何实线都改成虚线了(if (<= hh 0.7000000 )
   (if (> hh 0.70000001 )
    (if (> hh 1.20000001 )
     (if (> hh 2.000001 )
    (if (> hh 5.00001 )
    (if (> hh 30.0000 )
    (if (> hh 50.000001 )
    (if (> hh 90.000001 )

ZZXXQQ

程序就是改的虚线呀。

功夫佬

你这个是根据长的度长自动给设定虚线比列的！

gao051525

没看懂，再研究研究，支持！

L。小妖。

功夫佬 发表于 2012-6-3 17:23
你这个是根据长的度长自动给设定虚线比列的！

什么是“长的度长”和“虚线比列”啊~

L。小妖。

ZZXXQQ 发表于 2012-6-3 16:50
程序就是改的虚线呀。

就是为什么能改了。。