请教老师

xiao88gang

(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

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

hhh454

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

hhh454

(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

(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

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

完美，谢谢老师

ysq101

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

原来还有这系统变量   学习了