代码求诊断，操作矩形的四个顶点

fedd

(defun c:ZZ()
(setq sel (entsel "\n选择四边形:")
en (entget (car sel)))
(setq Lst (mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) 10)) en))
s1 (nth 0 Lst)
s2 (nth 1 Lst)
s3 (nth 2 Lst)
s4 (nth 3 Lst)
)
(setq pt1(cdr s1))
(setq pt3(cdr s3))

(setq pt11(polar(pt1 0 500)))
(setq pt33(polar(pt3 0 500)))
(command "line"  "pt11 pt33")
）

Bao_lai

都看不出来你想要干啥
1.pt1不是一点坐标
2.polar函数看下使用帮助
3.command画线要关闭捕捉

fedd

Bao_lai 发表于 2021-11-20 17:54
都看不出来你想要干啥
1.pt1不是一点坐标
2.polar函数看下使用帮助

1.pt1不是一点坐标  什么意思？
S1 S2 S3 S4 是XY坐标吗？ 那是什么呢？求指点，谢谢！

Bao_lai

fedd 发表于 2021-11-20 18:03
1.pt1不是一点坐标  什么意思？
S1 S2 S3 S4 是XY坐标吗？ 那是什么呢？求指点，谢谢！

直接上原图和想要效果更直接

fedd

Bao_lai 发表于 2021-11-20 18:11
直接上原图和想要效果更直接

点击一个矩形，想把第二个顶点和第三个顶点向右偏移500，再把两个点用实线连起来，有劳大侠~~~~

Bao_lai

fedd 发表于 2021-11-20 18:14
点击一个矩形，想把第二个顶点和第三个顶点向右偏移500，再把两个点用实线连起来，有劳大侠~~~~

(defun c:ZZ()
(setq sel (entsel "\n选择四边形:")
en (entget (car sel)))
(setq Lst (mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) 10)) en))
s1 (nth 0 Lst)
s2 (nth 1 Lst)
s3 (nth 2 Lst)
s4 (nth 3 Lst)
)
(setq pt11(polar s1 0 500))
(setq pt33(polar s3 0 500))
(command "line"  "_non" pt11 "_non" pt33 "")
)

fedd

Bao_lai 发表于 2021-11-20 18:17
(defun c:ZZ()
(setq sel (entsel "\n选择四边形:")
en (entget (car sel)))

学习了，大侠牛逼，太帅了，感谢感谢感谢！！！！

fedd

fedd 发表于 2021-11-20 18:22
学习了，大侠牛逼，太帅了，感谢感谢感谢！！！！

我主要是想在图框上画一个四边形，点击就可以打印PDF。可是不行，显示参数错误
(defun c:ZZZ ( )
(setq sel (entsel "\n选择四边形:")
en (entget (car sel)))
(setq Lst (mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) 10)) en))
p11 (nth 0 Lst)
s2 (nth 1 Lst)
p2 (nth 2 Lst)
s4 (nth 3 Lst)
)
  (setq st "landscape")
  (setq x1 (car p1) y1 (cadr p1) x2 (car p2) y2 (cadr p2))
  (setq x (abs (- x1 x2)) y (abs (- y1 y2)) )
  (if (> y x) (setq st "portrait"))
  (command "-plot" "YES" "" "\\Microsoft Print to PDF" "A4 (210 x 297 mm)"  "inches" st "" "window" p1 p2 "Fit" "center" "" "monochrome.ctb" "" "" "" "" "")
  (command "pickbox" 8)
(princ)
)

wudechao

fedd 发表于 2021-11-20 19:43
我主要是想在图框上画一个四边形，点击就可以打印PDF。可是不行，显示参数错误
(defun c:ZZZ ( )
(setq ...

你写错了，p1从哪里来的？

fedd

wudechao 发表于 2021-11-20 22:26
你写错了，p1从哪里来的？

确实，p11写错了，多谢