在不同缩放比例上的操作结果不同,如何解决

zhystar

;画一个五角星
(defun drawing()
          (setvar "cmdecho" 0)
          (setq os (getvar "osmode"))
          (setvar "osmode" 0)
           (setq p0 (getpoint))
        (setq r (getreal "请输入半径："）
          (setq p1 (polar p0 (/ pi 2) r))
          (setq p2 (polar p0 (* pi 0.9) r))
          (setq p3 (polar p0 (* pi 1.3) r))
          (setq p4 (polar p0 (* pi 1.7) r))
          (setq p5 (polar p0 (* pi 2.1) r))
          (command "pline" p1 p3 p5 p2 p4 "c")
          (setq e1 (entlast))
          (command "trim" e1 ""
                 (mid p1 p3)
                 (mid p2 p4)
                 (mid p3 p5)
                 (mid p4 p1)
                 (mid p5 p2)
                "" )
            (setvar "osmode" os)
          (princ)
  )

    ;设置裁剪点
  (defun mid(s1 s2)
    (setq a (* (+ (car s1) (car s2)) 0.5))
    (setq b (* (+ (cadr s1) (cadr s2)) 0.5))
    (list a b)
    )

C:\Users\Administrator\Desktop\图

zhystar

在不同缩放比例下，大比例尺下的图形残缺不全

Lisphk

现在的变量E1是实体名，
改成(entsel)那种返回格式，就是表 (实体名 点)， 点你给裁剪方向上实体上的任意点

zhystar

Lisphk 发表于 2020-2-18 16:36
现在的变量E1是实体名，
改成(entsel)那种返回格式，就是表 (实体名 点)， 点你给裁剪方向上实体上的任意 ...

e1是未处理完的五角星，裁剪选取点就是要形成完整五角星的（不带内部线）
问题在于，在大比例尺画小半径时，五角星就出现问题了。其他时候程序完美执行设计意图。
原以为是捕捉的问题，但是已经设置osmode了，是不是精度问题？

zhystar

Lisphk 发表于 2020-2-18 16:36
现在的变量E1是实体名，
改成(entsel)那种返回格式，就是表 (实体名 点)， 点你给裁剪方向上实体上的任意 ...

e1是未处理完的五角星，裁剪选取点就是要形成完整五角星的（不带内部线）
问题在于，在大比例尺画小半径时，五角星就出现问题了。其他时候程序完美执行设计意图。
原以为是捕捉的问题，但是已经设置osmode了，是不是精度问题？

tzfcn

增加一个可选参数进行设置？或者自动识别比例

dfd1716

学习了，谢谢！

HLCAD

别用trim，使用(inters p1 p3 p2 p5)、(inters p1 p3 p2 p4) ... 分别求出对应的交点，然后按顺序连线

zhystar

HLCAD 发表于 2020-2-19 19:51
别用trim，使用(inters p1 p3 p2 p5)、(inters p1 p3 p2 p4) ... 分别求出对应的交点，然后按顺序连线

我试试，谢谢提点