删除指定点的圆

chenbh2 · 发表于 2019-7-22 18:39

删除p1处的圆下面这样为何行不通

(setq px (rtos(nth 0 p1 )2 8 ))
(setq py (rtos(nth 1 p1 )2 8 ))
(setq ss(list '((0 . "circle")(-4 . ">,<,=")(list 10 px py 0.0))))
(command "_.ERASE" ss "")

1291500406 · 发表于 2019-7-22 20:17

本帖最后由 1291500406 于 2019-7-22 20:25 编辑

ERASE的对象是选择集或者图元名，而你的参数是圆加点参数的表，当然删不了

Andyhon · 发表于 2019-7-22 20:18

您得附上 Dwg + 标明 P1点
另就是您执行后想达成的效果
别让人有无从理清的臆测空间

yshf · 发表于 2019-7-23 08:07

;试用以下程序
(defun c:test()
(setq cmd (getvar "cmdecho"))
(setq osm (getvar "osmode"))
(setvar "cmdecho" 0)
(setvar "osmode" 4)
(if (setq p1 (getpoint "\n选取圆心点P1:"))
      (if (setq ss (ssget "x" (list '(0 . "circle") '(-4 . "=,=,=") (cons 10 p1))))
         (command "_.ERASE"  ss "")
      )
)
(setvar "osmode" osm)
(setvar "cmdecho" cmd)
(princ)
)

1784290342 · 发表于 2019-7-24 11:44

浮点数不能用=直接判断，1可能表示为0.99999999999999999999999999999999

chenbh2 · 发表于 2019-7-24 16:57

1784290342 发表于 2019-7-24 11:44
浮点数不能用=直接判断，1可能表示为0.99999999999999999999999999999999

  感谢回复！以下代码可以解决！
(if (setq ss (ssget "x" (list '(0 . "circle") '(-4 . "=,=,=") (cons 10 p1))))
         (command "_.ERASE"  ss "")
      )

账号		自动登录	找回密码
密码			注册

[讨论] 删除指定点的圆

点评

评分