如图。

前生 · 发表于 2018-10-22 01:12:23

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

见贴图。
如何点取白色PLINE线，生成绿色PLINE线？
前提，白色线假设大小足够。

初步设想，求各个端点，计算角度，求各个应该生成的点。生成绿色线。

marting · 发表于 2018-10-22 02:49:30

角分线距离15，生成内部点，连上就行了。

newer · 发表于 2018-10-22 03:39:23

本帖最后由 newer 于 2018-10-22 03:43 编辑

五角星内偏-1.gif

(defun c:tt ()
(defun _draw (e dis / p vec i p1 pts)
(setq i 0)
(repeat (xdrx_polyline_numverts e);;多段线顶点数循环
(setq p (xdrx_polyline_getpointat e i);;指定索引顶点
vec (xdrx_getpropertyvalue e "AngularLineVector" i);;指定索引角分线向量
i (1+ i)
p1 (mapcar '+ p (xdrx_vector_product vec dis));;距离乘以单位向量求偏移点
)
(if (not (xdrx_point_isinside p1 e));;点不在多边形内，翻转向量求内部点
(setq p1 (mapcar '+ p (xdrx_vector_product vec (- dis))))
)
(setq pts (cons p1 pts))
)
(xdrx_polyline_make pts t);;点表生成多段线
(xdrx_setpropertyvalue (entlast) "color" (xdrx_math_rand 255));;0-255随机颜色
)
(if (and (setq e (car (xdrx_entsel "\n拾取五角星<退出>:" '((0 . "*polyline")))))
(/= "" (setq dists (getstring "\n输入偏移距离，多个逗号分开<退出>:")))
)
(progn (xdrx_begin)
(mapcar '(lambda (x) (_draw e (atof x)))
(xdrx_string_split dists ",")
)
(xdrx_end)
)
)
(princ)
)

(defun c:tt () 
  (defun _draw (e dis / p vec i p1 pts) 
    (setq i 0) 
    (repeat (xdrx_polyline_numverts e);;多段线顶点数循环 
      (setq p        (xdrx_polyline_getpointat e i);;指定索引顶点 
            vec        (xdrx_getpropertyvalue e "AngularLineVector" i);;指定索引角分线向量 
            i        (1+ i) 
            p1        (mapcar '+ p (xdrx_vector_product vec dis));;距离乘以单位向量求偏移点 
      ) 
      (if (not (xdrx_point_isinside p1 e));;点不在多边形内，翻转向量求内部点 
        (setq p1 (mapcar '+ p (xdrx_vector_product vec (- dis)))) 
      ) 
      (setq pts (cons p1 pts)) 
    ) 
    (xdrx_polyline_make pts t);;点表生成多段线 
    (xdrx_setpropertyvalue  (entlast) "color" (xdrx_math_rand 255));;0-255随机颜色 
  ) 
  (if (and (setq e (car (xdrx_entsel "\n拾取五角星<退出>:" '((0 . "*polyline"))))) 
         (/= "" (setq dists (getstring "\n输入偏移距离，多个逗号分开<退出>:"))) 
    ) 
     (progn (xdrx_begin) 
            (mapcar '(lambda (x) (_draw e (atof x))) 
                    (xdrx_string_split dists ",") 
            ) 
            (xdrx_end) 
     ) 
  ) 
  (princ) 
)

再见熊猫衣服 · 发表于 2018-10-22 11:35:23

newer 发表于 2018-10-22 03:39

不必这么麻烦，直接O，便宜，150，即可。。

newer · 发表于 2018-10-22 12:43:19

再见熊猫衣服发表于 2018-10-22 11:35
不必这么麻烦，直接O，便宜，150，即可。。

注意审题哦，你画个试试

前生 · 发表于 2018-10-22 13:39:12

newer 发表于 2018-10-22 12:43
注意审题哦，你画个试试

如果不用其他的插件，用纯粹的lsp或alisp 呢？这个功能是用在一个很奇怪的程序处理上的。别人的机器要求他们都装这个 XDRX api可能有难度

前生 · 发表于 2018-10-22 13:40:57

(not (xdrx_point_isinside p1 e));;点不在多边形内，翻转向量求内部点
这个很关键。

newer · 发表于 2018-10-22 14:08:05

前生发表于 2018-10-22 13:39
如果不用其他的插件，用纯粹的lsp或alisp 呢？这个功能是用在一个很奇怪的程序处理上的。别人的机器要求 ...

那你就把代码流程，翻译用普通LISP去实现好了

再见熊猫衣服 · 发表于 2018-10-22 15:08:21

不用麻烦，O，偏移，也是可以设定距离和图层颜色的。。

newer · 发表于 2018-10-22 15:21:17

再见熊猫衣服发表于 2018-10-22 15:08
不用麻烦，O，偏移，也是可以设定距离和图层颜色的。。

你O能偏移出来，你偏移下试试？

仔细看图

登录/注册后可看大图

你用O能偏移的是下面这样的，和上面图一样吗？

搜狗截图20181022124245.png

前生 · 发表于 2018-10-23 01:47:12

(mapcar 'cdr
(vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget en))
)

ray7891 · 发表于 2018-10-23 12:35:41

高手，学习。

=^_^= · 发表于 2018-10-23 14:40:07

学习一下这些好方法

coverne · 发表于 2018-10-23 15:00:30

学习一下这些好方法

evayleung · 发表于 2018-10-23 15:10:09

本帖最后由 newer 于 2018-10-23 15:19 编辑

(defun c:tt () (defun vxs (e / i v lst)
(setq i -1)
(while (setq v (vlax-curve-getpointatparam e (setq i (1+ i))))
(setq lst (cons v lst))
)
(reverse lst)
)
(defun GetCentroid (poly / AXERR CEN PL REG VA)
(setq pl (vlax-ename->vla-object poly)
va (vlax-make-safearray vlax-vbObject '(0 . 0))
)
(vlax-safearray-put-element va 0 pl)
(setq axErr (VL-CATCH-ALL-APPLY
'vla-addregion
(list (vla-get-modelSpace
(vla-get-ActiveDocument (vlax-get-acad-object))
)
va
)
)
)
(if (VL-CATCH-ALL-ERROR-P axErr)
nil
(progn (setq reg (car (vlax-safearray->list (vlax-variant-value axErr)))
cen (vla-get-centroid reg)
)
(vla-delete reg)
(vlax-safearray->list (vlax-variant-value cen))
)
)
)
(prompt "\n拾取五角星<退出>:")
(if (and (setq e (ssname (ssget "+.:S" '((0 . "*polyline"))) 0))
(/= ""
(setq dist (getreal "\n输入偏移距离<正值向内，负值向外>:"))
)
)
(progn (setq pt_lst (vxs e))
(Setq cen (GetCentroid e))
(setq pt2_lst (mapcar '(lambda (x) (polar x (angle x cen) dist)) pt_lst))
(entmake (append (list '(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(100 . "AcDbPolyline")
'(62 . 3)
(cons 90 (length pt2_lst))
)
(mapcar '(lambda (x) (cons 10 x)) pt2_lst)
)
)
)
)
(princ)
)

(defun c:tt ()  (defun vxs (e / i v lst) 
    (setq i -1) 
    (while (setq v (vlax-curve-getpointatparam e (setq i (1+ i)))) 
      (setq lst (cons v lst)) 
    ) 
    (reverse lst) 
  ) 
  (defun GetCentroid (poly / AXERR CEN PL REG VA) 
    (setq pl (vlax-ename->vla-object poly) 
          va (vlax-make-safearray vlax-vbObject '(0 . 0)) 
    ) 
    (vlax-safearray-put-element va 0 pl) 
    (setq axErr (VL-CATCH-ALL-APPLY 
                  'vla-addregion 
                  (list (vla-get-modelSpace 
                          (vla-get-ActiveDocument (vlax-get-acad-object)) 
                        ) 
                        va 
                  ) 
                ) 
    ) 
    (if (VL-CATCH-ALL-ERROR-P axErr) 
      nil 
      (progn (setq reg (car (vlax-safearray->list (vlax-variant-value axErr))) 
                   cen (vla-get-centroid reg) 
             ) 
             (vla-delete reg) 
             (vlax-safearray->list (vlax-variant-value cen)) 
      ) 
    ) 
  ) 
  (prompt "\n拾取五角星<退出>:") 
  (if (and (setq e (ssname (ssget "+.:S" '((0 . "*polyline"))) 0)) 
           (/= "" 
               (setq dist (getreal "\n输入偏移距离<正值向内，负值向外>:")) 
           ) 
      ) 
    (progn (setq pt_lst (vxs e)) 
           (Setq cen (GetCentroid e)) 
           (setq pt2_lst (mapcar '(lambda (x) (polar x (angle x cen) dist)) pt_lst)) 
           (entmake (append (list '(0 . "LWPOLYLINE") 
                                  '(100 . "AcDbEntity") 
                                  '(100 . "AcDbPolyline") 
                                  '(62 . 3) 
                                  (cons 90 (length pt2_lst)) 
                            ) 
                            (mapcar '(lambda (x) (cons 10 x)) pt2_lst) 
                    ) 
           ) 
    ) 
  ) 
  (princ) 
)

其他自己深化。。。
其中引用了前辈的LISP和格式，在此表示谢谢。

账号		自动登录	找回密码
密码			立即注册

[求助] 如图。

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评

点评

点评

评分