展桩基坐标并画圆

cjf160204

展桩基坐标并可以画圆

cjf160204

(DEFUN C:ZD( / E1 E2 A A1 A2 A3 A4 B1 B2 B3 B4 I textSize diameter )
  (setq E1 (GETVAR "cmdecho"))
  (SETVAR "cmdecho" 0)
  (setq E2 (GETVAR "osmode"))
  (SETVAR "osmode" 0)
  (VL-LOAD-COM)
  (setq A (GETFILED "选取数据文件" "" "txt" 16))
  (setq A1 (OPEN A "r"))
  (setq I 0)
  (setq textSize (getreal "\n 请输入文字大小: "))
  (setq diameter (getreal "\n 请输入圆的直径: "))
  (command "undo")
  (command "be")
  (while (and  (if (AND (setq  A2 (READ-LINE A1)) (/= (STRLEN A2) 0)) (PROGN  T)))
    (setq A3 (VL-STRING-POSITION (ASCII ",") A2))
    (setq A4 (VL-STRING-POSITION (ASCII ",") A2 (+ A3 1)))
    (setq B (SUBSTR A2 1 A3))
    (setq B1 (READ (SUBSTR A2 (+ A3 2) (- A4 A3 1))))
    (setq B2 (READ (SUBSTR A2 (+ A4 2))))
    (setq B3 (LIST (+ B2 0.375) (- B1 0.375)))
    (setq B4 (LIST B2 B1))
    (command ".text")
    (command B3)
    (command textSize)
    (command 0)
    (command B)
    (command ".point")
    (command B4)
    (if (> diameter 0)  ; 只有当直径大于 0 时才画圆
        (command "circle" B4 (/ diameter 2))
    )
    (setq I (1+ I))
  )
  (command "undo")
  (command "e")
  (CLOSE A1)
  (SETVAR "cmdecho" E1)
  (SETVAR "osmode" E2)
  (PRINC "\n 展点结束！展点数：")
  (PRINC I)
  (PRINC "\n")
  (PRINC)
)

cjf160204

cjf160204 发表于 2024-7-15 11:04
(DEFUN C:ZD( / E1 E2 A A1 A2 A3 A4 B1 B2 B3 B4 I textSize diameter )
  (setq E1 (GETVAR "cmdecho")) ...

这个才对，上面展点位置和圆心有细微偏差，这个展点位置和圆心位置一致

散装的啤酒

这个很好的，感谢您。

cjf160204

散装的啤酒 发表于 2024-7-15 11:11
这个很好的，感谢您。

本来展点完，桩基又要画圆，可以一个插件搞定