ynhh 发表于 2025-5-23 18:11:43

画圆弧后无法取得图元

画圆弧后无法取得图元
因CAD自带的画圆弧，画的过程中能动态直观地看到圆弧效果
所以想用这方法画圆弧后，再取得圆弧上的三个点
但偿试后感觉这样还取不到图元，也不好再往下取得圆弧上的三个点了
不知我这想法是不是有问题
请知道的老师老点一下
谢谢

(defun C:QQ()
(command "ARC")
(setq en (entlast));返回图形中最后那个未删除的主对象（图元）名称
;(command "erase" en "");删除对象
)

yshf 发表于 2025-5-23 18:18:23

(defun C:QQ()
    (command "ARC" pause)
    (setq en (entlast));返回图形中最后那个未删除的主对象（图元）名称
    (princ "\n")
    (princ (entget en))
    ;(command "erase" en "");删除对象??
    (princ)
)

Andyhon 发表于 2025-5-23 19:36:42

.
(command "ARC")
(while (= (logand (getvar "CmdActive") 1) 1) (vl-cmdf pause))
.

ynhh 发表于 2025-5-23 22:33:44

yshf 发表于 2025-5-23 18:18
(defun C:QQ()
    (command "ARC" pause)
    (setq en (entlast));返回图形中最后那个未删除的主对象（ ...

谢谢老师，我是想取得图元，删除那个是测试用的
您这好象也没取出图元

ynhh 发表于 2025-5-23 22:36:11

Andyhon 发表于 2025-5-23 19:36
.
(command "ARC")
(while (= (logand (getvar "CmdActive") 1) 1) (vl-cmdf pause))


谢谢老师指点
您这方法真能得到圆弧的图元
再请老师
这个pause字符好象不能改动
不知是何意思
谢谢您

guosheyang 发表于 2025-5-23 23:54:37

(defun C:QQ(/en)
   (command "ARC" pause pause pause)
   (setq en (entlast))
   (princ)
)
这样可以获得

ynhh 发表于 2025-5-24 23:40:32

guosheyang 发表于 2025-5-23 23:54
(defun C:QQ(/en)
   (command "ARC" pause pause pause)
   (setq en (entlast))


谢谢您的指导
您这方法更简单方便一些
谢谢您
页: [1]
查看完整版本: 画圆弧后无法取得图元