xiao88gang 发表于 2018-4-6 16:26:41

请教老师


(defun c:fxx ()
(setq xx (ssget))
(command "pedit" "m" xx "" "y""j" "j"""1.0"")
(princ)
)
这个有时可以正常用，有时会出现下面的内容。哪里写的不对吗？

命令: fxx
选择对象: 指定对角点: 找到 3 个
选择对象:
无效的选项关键字。
错误: 函数被取消
无效的选项关键字。
无效的选项关键字。
输入选项 [闭合(C)/打开(O)/合并(J)/宽度(W)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)/放弃(U)]: *取消*

bssurvey 发表于 2018-4-6 16:40:33

將線及弧轉換為聚合線 [是(Y)/否(N)]? <Y> y
輸入選項 [封閉(C)/開放(O)/雲形線(S)/直線化(D)/退回(U)]: j
無效的選項關鍵字。
; 錯誤: 函數被取消
像這樣嗎?
應該是第一個選到圓、文字、塊的物件。

hhh454 发表于 2018-4-6 16:45:18

(setvar "PEDITACCEPT" 1)
去除回答“”是“”或者“”否“”

hhh454 发表于 2018-4-6 16:47:06

(defun c:rt()
(setvar "cmdecho" 0)
(setq ss (ssget))
(setvar "PEDITACCEPT" 1)
(command "pedit" "m" ss "" "j" "" "")
(setvar "PEDITACCEPT" 0)
(setvar "cmdecho" 1)
(princ)
)

liunian0524 发表于 2018-4-6 17:06:09

(defun c:fxx    (/ xx)
(setvar "peditaccept"1)
(setvar "cmdecho" 0 )
(setq xx (ssget'((-4 . "<OR")(0 . "LINE")(0 . "LWPOLYLINE")(0 . "ARC")(-4 . "OR>"))))
(command "pedit" "m"xx "" "j""0" "" )
(setvar "peditaccept"0)
(princ)
)

xiao88gang 发表于 2018-4-6 17:07:02

hhh454 发表于 2018-4-6 16:47
(defun c:rt()
(setvar "cmdecho" 0)
(setq ss (ssget))


完美，谢谢老师

ysq101 发表于 2018-4-6 23:06:52

hhh454 发表于 2018-4-6 16:47
(defun c:rt()
(setvar "cmdecho" 0)
(setq ss (ssget))


原来还有这系统变量   学习了
页: [1]
查看完整版本: 请教老师