（XD::Pnts:ToBox）点表生成沿着连城多段线方向上指定X,Y偏移的多边形点表

newer · 发表于 2020-4-12 20:51:15

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

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

×

本帖最后由 newer 于 2020-4-12 20:53 编辑

(defun XD::Pnts:ToBox (pts h1 w1 / _temp pts1 pts2)
(defun _temp (pts / pts1)
(setq pts1 (cons (mapcar '+
(car pts)
(xdrx-vector-product
(xdrx-vector-normalize
(mapcar '- (car pts) (cadr pts))
)
w1
)
)
pts
)
pts1 (append
pts1
(list (mapcar '+
(last pts1)
(xdrx-vector-product
(xdrx-vector-normalize
(mapcar '-
(last pts1)
(nth (- (length pts1) 2) pts1)
)
)
w1
)
)
)
)
)
)
(setq h1 (abs h1))
(setq pts1 (xdrx-points-offset h1 pts)
pts2 (xdrx-points-offset (- h1) pts)
)
(if (or (= (type w1) 'int) (= (type w1) 'real))
(progn (setq w1 (abs w1)
pts1 (_temp pts1)
pts2 (_temp pts2)
)
)
)
(append pts1 (reverse pts2))
)

(defun XD::Pnts:ToBox (pts h1 w1 / _temp pts1 pts2) 
  (defun _temp (pts / pts1) 
    (setq pts1 (cons (mapcar '+ 
                             (car pts) 
                             (xdrx-vector-product 
                               (xdrx-vector-normalize 
                                 (mapcar '- (car pts) (cadr pts)) 
                               ) 
                               w1 
                             ) 
                     ) 
                     pts 
               ) 
          pts1 (append 
                 pts1 
                 (list (mapcar '+ 
                               (last pts1) 
                               (xdrx-vector-product 
                                 (xdrx-vector-normalize 
                                   (mapcar '- 
                                           (last pts1) 
                                           (nth (- (length pts1) 2) pts1) 
                                   ) 
                                 ) 
                                 w1 
                               ) 
                       ) 
                 ) 
               ) 
    ) 
  ) 
  (setq h1 (abs h1)) 
  (setq        pts1 (xdrx-points-offset h1 pts) 
        pts2 (xdrx-points-offset (- h1) pts) 
  ) 
  (if (or (= (type w1) 'int) (= (type w1) 'real)) 
    (progn (setq w1   (abs w1) 
                 pts1 (_temp pts1) 
                 pts2 (_temp pts2) 
           ) 
    ) 
  ) 
  (append pts1 (reverse pts2)) 
)

WhoCanSay · 发表于 2020-4-15 11:23:16

是不是自制一个offset的意思？

knife0930 · 发表于 2020-4-16 09:02:52

老大这个出错是什么原因？

newer · 发表于 2020-4-16 10:02:13

knife0930 发表于 2020-4-16 09:02
老大这个出错是什么原因？

什么版本CAD？
你怎么操作的，代码？
上传下你的图

knife0930 · 发表于 2020-4-16 11:11:52

newer 发表于 2020-4-16 10:02
什么版本CAD？
你怎么操作的，代码？
上传下你的图

老大，我的是CAD2014，是参数h1，w1的数值大于120就会出错，小于120没有问题。是不是要设置晓东里的哪个参数？

Lisphk · 发表于 2020-4-16 11:27:29

knife0930 发表于 2020-4-16 11:11
老大，我的是CAD2014，是参数h1，w1的数值大于120就会出错，小于120没有问题。是不是要设置晓东里的哪个 ...

肯定根你的图形有关了，你试试把线画出来，然后用CAD的OFFSET命令，看看用你的数值能正确偏移不？

knife0930 · 发表于 2020-4-16 11:56:04

Lisphk 发表于 2020-4-16 11:27
肯定根你的图形有关了，你试试把线画出来，然后用CAD的OFFSET命令，看看用你的数值能正确偏移不？

这位老大帮我看看，选择一个文字，获取文字外框偏移200的点表。我是菜鸟，谢谢
(defun c:nn()
(setq en (entsel))
(setq pnts (XD::Text:Box (car en)))
(setq newpnts (XD::Pnts:ToBox pnts 200 200))
)

Lisphk · 发表于 2020-4-16 14:38:54

本帖最后由 Lisphk 于 2020-4-16 14:50 编辑

knife0930 发表于 2020-4-16 11:56
这位老大帮我看看，选择一个文字，获取文字外框偏移200的点表。我是菜鸟，谢谢
(defun c:nn()
(setq ...

函数偏移是要内，外都偏移的，你要是文字的框，如果你文字高度小于200，你往内部是偏移不了200的，自己用CAD画，然后往里面OFFSET试试
你取个比文字高度小于一半的值去试试
，比如50

Lisphk · 发表于 2020-4-16 14:59:46

knife0930 发表于 2020-4-16 11:56
这位老大帮我看看，选择一个文字，获取文字外框偏移200的点表。我是菜鸟，谢谢
(defun c:nn()
(setq ...

修改下你的代码

(defun c:nn ()
(if (and (setq h (getreal "\n偏移值<退出>:"))
(setq en (car (entsel)))
)
(progn (setq pnts (XD::Text:Box en))
(setq newpnts (XD::Pnts:ToBox pnts h h))
(xdrx-polyline-make newpnts t)
(xdrx-setpropertyvalue (entlast) "color" 1)
(sssetfirst nil (ssget "l"))
)
)
(princ)
)

字高200下，偏移30的结果

搜狗截图20200416145827.jpg

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

[点表] （XD::Pnts:ToBox）点表生成沿着连城多段线方向上指定X,Y偏移的多边形点表

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

点评

点评

点评