API应用模拟刷子光标

st788796 · 发表于 2014-12-28 20:17:42

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

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

×

放松一下

(defun _doc:pixeltounits ()
(/ (getvar "viewsize") (cadr (getvar "screensize")))
)
(defun xentsel (/ callback pts e mat)
(defun callback (dynpt / scl mat1 vec)
(redraw)
(setq scl (/ (* 3.0 (getvar "pickbox") (_doc:pixeltounits)) 325.0)
mat1 (xdrx_matrix_setscale mat scl '(0.0 0.0 0.0))
vec (list (* 1.5 (getvar "pickbox") (_doc:pixeltounits))
(* -3.5 (getvar "pickbox") (_doc:pixeltounits))
0.0
)
)
(mapcar
'(lambda (x)
(apply 'xdrx_grdraw
(cons 7
(cons 0
(xdrx_points_transform
x
(xdrx_matrix_settranslation
mat1
(mapcar '+ dynpt vec)
)
)
)
)
)
)
pts
)
)
(setq pts '(((0.0 0.0 0.0)
(220.0 0.0 0.0)
(260.0 40.0 0.0)
(260.0 195.0 0.0)
(230.0 225.0 0.0)
(165.0 225.0 0.0)
(165.0 317.0 0.0)
(159.0 325.0 0.0)
(141.0 325.0 0.0)
(135.0 317.0 0.0)
(135.0 225.0 0.0)
(70.0 225.0 0.0)
(40.0 195.0 0.0)
(40.0 40.0 0.0)
(0.0 0.0 0.0)
)
((165.592 0.0 0.0) (205.592 40.0 0.0))
((55.5924 0.0 0.0) (95.5924 40.0 0.0))
((110.592 0.0 0.0) (150.592 40.0 0.0))
((40.0 40.0 0.0) (260.0 40.0 0.0))
((40.0 149.955 0.0) (260.0 149.955 0.0))
((40.0 89.9551 0.0) (260.0 89.9551 0.0))
((40.0 160.0 0.0) (260.0 160.0 0.0))
((40.0 100.0 0.0) (260.0 100.0 0.0))
((135.0 225.0 0.0) (165.0 225.0 0.0))
((150.0 225.0 0.0) (150.0 317.661 0.0))
)
mat (xdrx_matrix_identity)
)
(xdrx_pointmonitor "callback")
;(setq e (entsel "\nPick Circle: "))
(getpoint)
(xdrx_pointmonitor)
(redraw)
(princ)
)

(defun _doc:pixeltounits () 
  (/ (getvar "viewsize") (cadr (getvar "screensize"))) 
) 
(defun xentsel (/ callback pts e mat) 
  (defun callback (dynpt / scl mat1 vec) 
    (redraw) 
    (setq scl  (/ (* 3.0 (getvar "pickbox") (_doc:pixeltounits)) 325.0) 
          mat1 (xdrx_matrix_setscale mat scl '(0.0 0.0 0.0)) 
          vec  (list (* 1.5 (getvar "pickbox") (_doc:pixeltounits)) 
                     (* -3.5 (getvar "pickbox") (_doc:pixeltounits)) 
                     0.0 
               ) 
    ) 
    (mapcar 
      '(lambda (x) 
         (apply        'xdrx_grdraw 
                (cons 7 
                      (cons 0 
                            (xdrx_points_transform 
                              x 
                              (xdrx_matrix_settranslation 
                                mat1 
                                (mapcar '+ dynpt vec) 
                              ) 
                            ) 
                      ) 
                ) 
         ) 
       ) 
      pts 
    ) 
  ) 
  (setq        pts '(((0.0 0.0 0.0) 
               (220.0 0.0 0.0) 
               (260.0 40.0 0.0) 
               (260.0 195.0 0.0) 
               (230.0 225.0 0.0) 
               (165.0 225.0 0.0) 
               (165.0 317.0 0.0) 
               (159.0 325.0 0.0) 
               (141.0 325.0 0.0) 
               (135.0 317.0 0.0) 
               (135.0 225.0 0.0) 
               (70.0 225.0 0.0) 
               (40.0 195.0 0.0) 
               (40.0 40.0 0.0) 
               (0.0 0.0 0.0) 
              ) 
              ((165.592 0.0 0.0) (205.592 40.0 0.0)) 
              ((55.5924 0.0 0.0) (95.5924 40.0 0.0)) 
              ((110.592 0.0 0.0) (150.592 40.0 0.0)) 
              ((40.0 40.0 0.0) (260.0 40.0 0.0)) 
              ((40.0 149.955 0.0) (260.0 149.955 0.0)) 
              ((40.0 89.9551 0.0) (260.0 89.9551 0.0)) 
              ((40.0 160.0 0.0) (260.0 160.0 0.0)) 
              ((40.0 100.0 0.0) (260.0 100.0 0.0)) 
              ((135.0 225.0 0.0) (165.0 225.0 0.0)) 
              ((150.0 225.0 0.0) (150.0 317.661 0.0)) 
             ) 
        mat (xdrx_matrix_identity) 
  ) 
  (xdrx_pointmonitor "callback") 
  ;(setq e (entsel "\nPick Circle: ")) 
  (getpoint) 
  (xdrx_pointmonitor) 
  (redraw) 
  (princ) 
)

st788796 · 发表于 2014-12-28 20:37:05

介绍下刷子形状的制作方法

在坐标原点处绘制好刷子形状，坐标等尽量取整数，同时，能够连接的线用 Pedit 连成尽量长，当然也可以用一根 pline 中间重复无所谓，接下来就是提取坐标，对 pline 用

(xdrx_getpropertyvalue (car (entsel)) "Vertices")

如果里面有分离的直线，就用

(mapcar '(lambda (x) (xdrx_getpropertyvalue x "startpoint" "endpoint")) (xdrx_pickset->ents (ssget '((0 . "line")))))

整理下点坐标，留存

grdraw 绘制没有弧线，而且屏幕是以像素为单位

st788796 · 发表于 2014-12-29 10:00:10

再贴一个类似 PS 吸管的标记数据, 垂直放置, 总高度为 10.8 , 使用时需要旋转

(((0.55 0.659128 0.0)
(0.4 0.659128 0.0)
(0.4 0.0 0.0)
(-0.4 0.0 0.0)
(-0.4 0.659128 0.0)
(-0.55 0.659128 0.0)
(-0.55 9.19087 0.0)
(-0.85 9.19087 0.0)
(-0.85 9.79087 0.0)
(-0.25 9.79087 0.0)
(-0.25 10.1819 0.0)
(-0.4 10.1819 0.0)
(-0.4 10.2961 0.0)
(-0.55 10.2961 0.0)
(-0.55 10.5705 0.0)
(-0.4 10.5705 0.0)
(-0.4 10.6847 0.0)
(-0.25 10.6847 0.0)
(-0.25 10.8 0.0)
(0.25 10.8 0.0)
(0.25 10.6847 0.0)
(0.4 10.6847 0.0)
(0.4 10.5705 0.0)
(0.55 10.5705 0.0)
(0.55 10.2961 0.0)
(0.4 10.2961 0.0)
(0.4 10.1819 0.0)
(0.25 10.1819 0.0)
(0.25 9.79087 0.0)
(0.85 9.79087 0.0)
(0.85 9.19087 0.0)
(0.55 9.19087 0.0)
)
  ((-0.25 10.6847 0.0) (0.25 10.6847 0.0))
  ((-0.4 10.5705 0.0) (0.4 10.5705 0.0))
  ((-0.25 9.89172 0.0) (0.25 9.89172 0.0))
  ((-0.25 10.0375 0.0) (0.25 10.0375 0.0))
  ((-0.55 10.4333 0.0) (0.55 10.4333 0.0))
  ((-0.4 10.2961 0.0) (0.4 10.2961 0.0))
  ((-0.25 10.1819 0.0) (0.25 10.1819 0.0))
  ((-0.55 9.19087 0.0) (0.55 9.19087 0.0))
  ((-0.25 9.79087 0.0) (0.25 9.79087 0.0))
  ((-0.85 9.49087 0.0) (0.85 9.49087 0.0))
  ((-0.85 9.64087 0.0) (0.85 9.64087 0.0))
  ((-0.85 9.34087 0.0) (0.85 9.34087 0.0))
  ((-0.4 0.659128 0.0) (0.4 0.659128 0.0))
)

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

[教学] API应用 模拟刷子光标

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

[教学] API应用模拟刷子光标