寒潮大冬瓜 发表于 2024-6-19 19:42:11

本帖最后由 寒潮大冬瓜 于 2024-6-19 19:44 编辑

请教院长,用代码生成的cass属性高程点,是个大圆点,大圆点会遮盖多数时候的线线交点,作图容易获取点不准确,期待生成等边三角形的cass属性高程点!辛苦院长指导指导……
;;;Gu_xl201209271019创建Cass高程点(Gu_xl201209271019插入点高程图块比例小数位数)
;(setq inspt (getpoint)) (setq scale 0.5) (setq height "AAAA")
(defun Gu_xl201209271019 (inspt height scale xsws / pt blkdef obj)
(command "layer" "m" "GCD" "c" "1" "" "L" "CONTINUOUS" """")
(if height
    (setq height (rtos height 2 xsws))
    (setq height "")

寒潮大冬瓜 发表于 2024-6-19 19:57:33

院长好!我用“(xyp-SubUpd ss 41 st41)”函数来缩放属性cass块,普通块没问题,只是这个cass属性高程点块的文字没变化,期待院长指导指导……

xyp1964 发表于 2024-6-19 22:44:01

寒潮大冬瓜 发表于 2024-6-19 19:57
院长好!我用“(xyp-SubUpd ss 41 st41)”函数来缩放属性cass块,普通块没问题,只是这个cass属性高程点块 ...
(defun c:tt ()
(if (and (setq s0 (car (entsel "\n选择参照图块: ")))
         (setq ss (ssget '((0 . "INSERT"))))
      )
    (progn
      (setq d41 (xyp-DXF 41 s0)
            i -1
      )
      (while (setq s1 (ssname ss (setq i (1+ i))))
      (setq d41a (xyp-DXF 41 s1)
            sc (/ d41 d41a1.)
      )
      (xyp-ScaleEntity s1 (xyp-DXF 10 s1) sc)
      )
    )
)
(princ)
)

寒潮大冬瓜 发表于 2024-6-20 10:11:14

本帖最后由 寒潮大冬瓜 于 2024-6-20 10:12 编辑

xyp1964 发表于 2024-6-19 22:44

感谢院长指导!
;【e派】工具箱函数再揭秘及应用实例
;http://bbs.mjtd.com/forum.php?mo ... 5673&fromuid=418631
;(出处: 明经CAD社区)
;
;xyp1964发表于 2024-6-19 22:44 | 只看该作者
;寒潮大冬瓜 发表于 2024-6-19 19:57
;院长好!我用“(xyp-SubUpd ss 41 st41)”函数来txyp2024-6-19缩放属性cass块普通块xyp1964于2024-6-19没问题,只是这个cass属性高程点块 ...
;txyp2024-6-19缩放属性cass块普通块xyp1964于2024-6-19
(defun c:txyp2024-6-19()
      (if(and(setq s0(car(entsel "\n选择参照图块: ")))
       (setq ss(ssget '((0 . "INSERT"))))
                     )
    (progn
                        (setq d41(xyp-DXF 41 s0)
                                          i -1
                              )
                        (while(setq s1(ssname ss(setq i(1+ i))))
                              (setq d41a(xyp-DXF 41 s1)
                                                      sc(/ d41 d41a1.)
                                        )
                              (xyp-ScaleEntity s1(xyp-DXF 10 s1) sc)
                              )
                  )
          )
      (princ)
)
;没有最好,只有更好!e派系统(XCAD)QQ群下载:24942984

命令: (progn (load "C:/XCAD/txyp2024-6-19缩放属性cass块普通块xyp1964于2024-6-19.lsp")(princ))
Error: undefined function - ENTSEL?
可能是我的XCAD版本没更新,还没有“ ENTSEL”这个函数

yerenyi 发表于 2024-6-20 21:21:56


无条件顶,院长的源码那是必须学习滴

nuan1989 发表于 2024-6-21 03:12:15

厉害:lol:victory:

寒潮大冬瓜 发表于 2024-7-22 00:11:56

院长好!辛苦指导一下这个“RENAME”命令的插件,为何实现不了?
;求rename命令增强版
;http://bbs.mjtd.com/forum.php?mod=viewthread&tid=108144&fromuid=418631
;(出处: 明经CAD社区)
renall增强版rename命令andyding于2023-7-4明经

寒潮大冬瓜 发表于 2024-8-18 00:30:11

本帖最后由 寒潮大冬瓜 于 2024-8-18 00:31 编辑

院长好!我用XYP-DXF1964和xyp-MkLaCo函数整了个获取起点10的坐标继续画线的代码,辛苦院长指导
感觉还不够顺……
;FX获取直线圆块样条曲线多段线等图元10起点画线XYP-DXF1964和xyp-MkLaCo函数
(defun c:FX(/ k e i p pp s)
      (setq k(car(entsel)))
      (setq p(xyp-DXF1964 10 K))
      (setq kTCM0(xyp-DXF1964 8 K))
      (SETQ kTCM(strcat kTCM0 "FX-" (menucmd "M=$(edtime,$(getvar,date),YYYYMODDhh)") ))
      (xyp-MkLaCo kTCM 2)
      (COMMAND "LINE" p PAUSE "")
      (setvar "CMDECHO" 1)
)

xyp1964 发表于 2024-8-19 11:28:27

寒潮大冬瓜 发表于 2024-8-18 00:30
院长好!我用XYP-DXF1964和xyp-MkLaCo函数整了个获取起点10的坐标继续画线的代码,辛苦院长指导
感觉 ...

(defun c:tt ()
(while (setq e (car (entsel"\n选择实体: <退出>")))
       (setq a (menucmd "M=$(edtime,$(getvar,date),YYYYMODDhh)"))
      (xyp-MkLaCo (strcat (xyp-DXF 8 e) "-FX-" a) 2)
      (COMMAND "LINE" (xyp-DXF 10 e) pause "")
   )
(princ)
)

寒潮大冬瓜 发表于 2024-8-19 20:26:14

xyp1964 发表于 2024-8-19 11:28


感谢院长!
页: 26 27 28 29 30 31 32 33 34 35 [36] 37 38
查看完整版本: 【e派】工具箱函数再揭秘及应用实例