求教高手，我这个程序应怎么循环

龙龙仔

xianaihua发表于2009-11-19 21:20:00这个朋友的要求还很高呀,不过好像也能实现

應使用原(command "_.pline")來實現,並配合entmake 文字

龙龙仔

;;(V2 2)
(defun V2 (TXTHEIGHT / A ANG HS HX S PT1 PT2)
  (command "_.layer" "s" "0" "")
  (setvar "cmdecho" 1)
  (command "_.pline" PAUSE)
  (setq PT1 (getvar "lastpoint"))
  (while (= 1 (getvar "cmdactive"))
    (command PAUSE)
    (setq PT2 (getvar "lastpoint"))
    (if (not (equal (getvar "lastpoint") PT1))
      (progn
 (setq S (distance PT1 PT2))
 (setq A (rtos S 2 2))
 (setq ANG (angle PT1 PT2))
 (setq HS (/ S 2))
 (setq HX (polar PT1 ANG HS))
 
 ;;這段程序我在公司電腦沒有效果(R2008)
 ;;家裡(R2008)卻可以,有點悶.....???
 ;;=========================================
 (entmake (list (cons 0 "TEXT")
         (cons 100 "AcDbEntity")
         (cons 100 "AcDbText")
         (cons 10 HX)
         (cons 40 TXTHEIGHT)
         (cons 1 A)
         (cons 50 ANG)
   )
 )
 ;;===========================================

 (setq PT1 PT2)
      )
    )
  )
  (princ)
)
(prompt "\n <<length>>在圖中直接寫出長度")
(princ)