明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1152|回复: 8

[函数] 天正对象lisp函数-墙体

  [复制链接]
发表于 2021-11-29 14:54 | 显示全部楼层 |阅读模式
  1. [code=lisp];;说明:
  2. ;;参数:o:
  3. ;;返回:
  4. (defun Zgx:Get:Application(o)
  5.   (or
  6.     (eq (type o)'VLA-OBJECT)
  7.     (setq o(vlax-ename->vla-object o))  
  8.   )
  9.   (vlax-get-property o 'Application)
  10. )


  11. ;;说明:
  12. ;;参数:o:
  13. ;;返回:
  14. (defun Zgx:Get:AreaRatio(o)
  15.   (or
  16.     (eq (type o)'VLA-OBJECT)
  17.     (setq o(vlax-ename->vla-object o))  
  18.   )
  19.   (vlax-get-property o 'AreaRatio)
  20. )


  21. ;;说明:
  22. ;;参数:o:
  23. ;;返回:
  24. (defun Zgx:Get:BottomFace(o)
  25.   (or
  26.     (eq (type o)'VLA-OBJECT)
  27.     (setq o(vlax-ename->vla-object o))  
  28.   )
  29.   (vlax-get-property o 'BottomFace)
  30. )

  31. ;;说明:
  32. ;;参数:o:
  33. ;;返回:
  34. (defun Zgx:Set:BottomFace(o value)
  35.   (or
  36.     (eq (type o)'VLA-OBJECT)
  37.     (setq o(vlax-ename->vla-object o))  
  38.   )
  39.   (vlax-put-property o 'BottomFace value)
  40. )

  41. ;;说明:
  42. ;;参数:o:
  43. ;;返回:
  44. (defun Zgx:Get:Conductivity(o)
  45.   (or
  46.     (eq (type o)'VLA-OBJECT)
  47.     (setq o(vlax-ename->vla-object o))  
  48.   )
  49.   (vlax-get-property o 'Conductivity)
  50. )


  51. ;;说明:
  52. ;;参数:o:
  53. ;;返回:
  54. (defun Zgx:Get:Document(o)
  55.   (or
  56.     (eq (type o)'VLA-OBJECT)
  57.     (setq o(vlax-ename->vla-object o))  
  58.   )
  59.   (vlax-get-property o 'Document)
  60. )


  61. ;;说明:
  62. ;;参数:o:
  63. ;;返回:
  64. (defun Zgx:Get:Elevation(o)
  65.   (or
  66.     (eq (type o)'VLA-OBJECT)
  67.     (setq o(vlax-ename->vla-object o))  
  68.   )
  69.   (vlax-get-property o 'Elevation)
  70. )

  71. ;;说明:
  72. ;;参数:o:
  73. ;;返回:
  74. (defun Zgx:Set:Elevation(o value)
  75.   (or
  76.     (eq (type o)'VLA-OBJECT)
  77.     (setq o(vlax-ename->vla-object o))  
  78.   )
  79.   (vlax-put-property o 'Elevation value)
  80. )

  81. ;;说明:
  82. ;;参数:o:
  83. ;;返回:
  84. (defun Zgx:Get:EndClose(o)
  85.   (or
  86.     (eq (type o)'VLA-OBJECT)
  87.     (setq o(vlax-ename->vla-object o))  
  88.   )
  89.   (vlax-get-property o 'EndClose)
  90. )

  91. ;;说明:
  92. ;;参数:o:
  93. ;;返回:
  94. (defun Zgx:Set:EndClose(o value)
  95.   (or
  96.     (eq (type o)'VLA-OBJECT)
  97.     (setq o(vlax-ename->vla-object o))  
  98.   )
  99.   (vlax-put-property o 'EndClose value)
  100. )

  101. ;;说明:
  102. ;;参数:o:
  103. ;;返回:
  104. (defun Zgx:Get:EntityTransparency(o)
  105.   (or
  106.     (eq (type o)'VLA-OBJECT)
  107.     (setq o(vlax-ename->vla-object o))  
  108.   )
  109.   (vlax-get-property o 'EntityTransparency)
  110. )

  111. ;;说明:
  112. ;;参数:o:
  113. ;;返回:
  114. (defun Zgx:Set:EntityTransparency(o value)
  115.   (or
  116.     (eq (type o)'VLA-OBJECT)
  117.     (setq o(vlax-ename->vla-object o))  
  118.   )
  119.   (vlax-put-property o 'EntityTransparency value)
  120. )

  121. ;;说明:
  122. ;;参数:o:
  123. ;;返回:
  124. (defun Zgx:Get:EnUsage(o)
  125.   (or
  126.     (eq (type o)'VLA-OBJECT)
  127.     (setq o(vlax-ename->vla-object o))  
  128.   )
  129.   (vlax-get-property o 'EnUsage)
  130. )

  131. ;;说明:
  132. ;;参数:o:
  133. ;;返回:
  134. (defun Zgx:Set:EnUsage(o value)
  135.   (or
  136.     (eq (type o)'VLA-OBJECT)
  137.     (setq o(vlax-ename->vla-object o))  
  138.   )
  139.   (vlax-put-property o 'EnUsage value)
  140. )

  141. ;;说明:
  142. ;;参数:o:
  143. ;;返回:
  144. (defun Zgx:Get:Handle(o)
  145.   (or
  146.     (eq (type o)'VLA-OBJECT)
  147.     (setq o(vlax-ename->vla-object o))  
  148.   )
  149.   (vlax-get-property o 'Handle)
  150. )


  151. ;;说明:
  152. ;;参数:o:
  153. ;;返回:
  154. (defun Zgx:Get:HasExtensionDictionary(o)
  155.   (or
  156.     (eq (type o)'VLA-OBJECT)
  157.     (setq o(vlax-ename->vla-object o))  
  158.   )
  159.   (vlax-get-property o 'HasExtensionDictionary)
  160. )


  161. ;;说明:
  162. ;;参数:o:
  163. ;;返回:
  164. (defun Zgx:Get:HatchLayer(o)
  165.   (or
  166.     (eq (type o)'VLA-OBJECT)
  167.     (setq o(vlax-ename->vla-object o))  
  168.   )
  169.   (vlax-get-property o 'HatchLayer)
  170. )

  171. ;;说明:
  172. ;;参数:o:
  173. ;;返回:
  174. (defun Zgx:Set:HatchLayer(o value)
  175.   (or
  176.     (eq (type o)'VLA-OBJECT)
  177.     (setq o(vlax-ename->vla-object o))  
  178.   )
  179.   (vlax-put-property o 'HatchLayer value)
  180. )

  181. ;;说明:
  182. ;;参数:o:
  183. ;;返回:
  184. (defun Zgx:Get:Height(o)
  185.   (or
  186.     (eq (type o)'VLA-OBJECT)
  187.     (setq o(vlax-ename->vla-object o))  
  188.   )
  189.   (vlax-get-property o 'Height)
  190. )

  191. ;;说明:
  192. ;;参数:o:
  193. ;;返回:
  194. (defun Zgx:Set:Height(o value)
  195.   (or
  196.     (eq (type o)'VLA-OBJECT)
  197.     (setq o(vlax-ename->vla-object o))  
  198.   )
  199.   (vlax-put-property o 'Height value)
  200. )

  201. ;;说明:
  202. ;;参数:o:
  203. ;;返回:
  204. (defun Zgx:Get:HideLabel(o)
  205.   (or
  206.     (eq (type o)'VLA-OBJECT)
  207.     (setq o(vlax-ename->vla-object o))  
  208.   )
  209.   (vlax-get-property o 'HideLabel)
  210. )

  211. ;;说明:
  212. ;;参数:o:
  213. ;;返回:
  214. (defun Zgx:Set:HideLabel(o value)
  215.   (or
  216.     (eq (type o)'VLA-OBJECT)
  217.     (setq o(vlax-ename->vla-object o))  
  218.   )
  219.   (vlax-put-property o 'HideLabel value)
  220. )

  221. ;;说明:
  222. ;;参数:o:
  223. ;;返回:
  224. (defun Zgx:Get:HoleArea(o)
  225.   (or
  226.     (eq (type o)'VLA-OBJECT)
  227.     (setq o(vlax-ename->vla-object o))  
  228.   )
  229.   (vlax-get-property o 'HoleArea)
  230. )


  231. ;;说明:
  232. ;;参数:o:
  233. ;;返回:
  234. (defun Zgx:Get:HoleVolume(o)
  235.   (or
  236.     (eq (type o)'VLA-OBJECT)
  237.     (setq o(vlax-ename->vla-object o))  
  238.   )
  239.   (vlax-get-property o 'HoleVolume)
  240. )


  241. ;;说明:
  242. ;;参数:o:
  243. ;;返回:
  244. (defun Zgx:Get:Hyperlinks(o)
  245.   (or
  246.     (eq (type o)'VLA-OBJECT)
  247.     (setq o(vlax-ename->vla-object o))  
  248.   )
  249.   (vlax-get-property o 'Hyperlinks)
  250. )


  251. ;;说明:
  252. ;;参数:o:
  253. ;;返回:
  254. (defun Zgx:Get:InertiaIndex(o)
  255.   (or
  256.     (eq (type o)'VLA-OBJECT)
  257.     (setq o(vlax-ename->vla-object o))  
  258.   )
  259.   (vlax-get-property o 'InertiaIndex)
  260. )


  261. ;;说明:
  262. ;;参数:o:
  263. ;;返回:
  264. (defun Zgx:Get:Insulate(o)
  265.   (or
  266.     (eq (type o)'VLA-OBJECT)
  267.     (setq o(vlax-ename->vla-object o))  
  268.   )
  269.   (vlax-get-property o 'Insulate)
  270. )

  271. ;;说明:
  272. ;;参数:o:
  273. ;;返回:
  274. (defun Zgx:Set:Insulate(o value)
  275.   (or
  276.     (eq (type o)'VLA-OBJECT)
  277.     (setq o(vlax-ename->vla-object o))  
  278.   )
  279.   (vlax-put-property o 'Insulate value)
  280. )

  281. ;;说明:
  282. ;;参数:o:
  283. ;;返回:
  284. (defun Zgx:Get:InsulateClose(o)
  285.   (or
  286.     (eq (type o)'VLA-OBJECT)
  287.     (setq o(vlax-ename->vla-object o))  
  288.   )
  289.   (vlax-get-property o 'InsulateClose)
  290. )

  291. ;;说明:
  292. ;;参数:o:
  293. ;;返回:
  294. (defun Zgx:Set:InsulateClose(o value)
  295.   (or
  296.     (eq (type o)'VLA-OBJECT)
  297.     (setq o(vlax-ename->vla-object o))  
  298.   )
  299.   (vlax-put-property o 'InsulateClose value)
  300. )

  301. ;;说明:
  302. ;;参数:o:
  303. ;;返回:
  304. (defun Zgx:Get:InsuThick(o)
  305.   (or
  306.     (eq (type o)'VLA-OBJECT)
  307.     (setq o(vlax-ename->vla-object o))  
  308.   )
  309.   (vlax-get-property o 'InsuThick)
  310. )

  311. ;;说明:
  312. ;;参数:o:
  313. ;;返回:
  314. (defun Zgx:Set:InsuThick(o value)
  315.   (or
  316.     (eq (type o)'VLA-OBJECT)
  317.     (setq o(vlax-ename->vla-object o))  
  318.   )
  319.   (vlax-put-property o 'InsuThick value)
  320. )

  321. ;;说明:
  322. ;;参数:o:
  323. ;;返回:
  324. (defun Zgx:Get:IOFeature(o)
  325.   (or
  326.     (eq (type o)'VLA-OBJECT)
  327.     (setq o(vlax-ename->vla-object o))  
  328.   )
  329.   (vlax-get-property o 'IOFeature)
  330. )

  331. ;;说明:
  332. ;;参数:o:
  333. ;;返回:
  334. (defun Zgx:Set:IOFeature(o value)
  335.   (or
  336.     (eq (type o)'VLA-OBJECT)
  337.     (setq o(vlax-ename->vla-object o))  
  338.   )
  339.   (vlax-put-property o 'IOFeature value)
  340. )

  341. ;;说明:
  342. ;;参数:o:
  343. ;;返回:
  344. (defun Zgx:Get:IsArc(o)
  345.   (or
  346.     (eq (type o)'VLA-OBJECT)
  347.     (setq o(vlax-ename->vla-object o))  
  348.   )
  349.   (vlax-get-property o 'IsArc)
  350. )


  351. ;;说明:
  352. ;;参数:o:
  353. ;;返回:
  354. (defun Zgx:Get:IsExternal(o)
  355.   (or
  356.     (eq (type o)'VLA-OBJECT)
  357.     (setq o(vlax-ename->vla-object o))  
  358.   )
  359.   (vlax-get-property o 'IsExternal)
  360. )


  361. ;;说明:
  362. ;;参数:o:
  363. ;;返回:
  364. (defun Zgx:Get:Label(o)
  365.   (or
  366.     (eq (type o)'VLA-OBJECT)
  367.     (setq o(vlax-ename->vla-object o))  
  368.   )
  369.   (vlax-get-property o 'Label)
  370. )

  371. ;;说明:
  372. ;;参数:o:
  373. ;;返回:
  374. (defun Zgx:Set:Label(o value)
  375.   (or
  376.     (eq (type o)'VLA-OBJECT)
  377.     (setq o(vlax-ename->vla-object o))  
  378.   )
  379.   (vlax-put-property o 'Label value)
  380. )

  381. ;;说明:
  382. ;;参数:o:
  383. ;;返回:
  384. (defun Zgx:Get:Layer(o)
  385.   (or
  386.     (eq (type o)'VLA-OBJECT)
  387.     (setq o(vlax-ename->vla-object o))  
  388.   )
  389.   (vlax-get-property o 'Layer)
  390. )

  391. ;;说明:
  392. ;;参数:o:
  393. ;;返回:
  394. (defun Zgx:Set:Layer(o value)
  395.   (or
  396.     (eq (type o)'VLA-OBJECT)
  397.     (setq o(vlax-ename->vla-object o))  
  398.   )
  399.   (vlax-put-property o 'Layer value)
  400. )

  401. ;;说明:
  402. ;;参数:o:
  403. ;;返回:
  404. (defun Zgx:Get:LayoutRotation(o)
  405.   (or
  406.     (eq (type o)'VLA-OBJECT)
  407.     (setq o(vlax-ename->vla-object o))  
  408.   )
  409.   (vlax-get-property o 'LayoutRotation)
  410. )

  411. ;;说明:
  412. ;;参数:o:
  413. ;;返回:
  414. (defun Zgx:Set:LayoutRotation(o value)
  415.   (or
  416.     (eq (type o)'VLA-OBJECT)
  417.     (setq o(vlax-ename->vla-object o))  
  418.   )
  419.   (vlax-put-property o 'LayoutRotation value)
  420. )

  421. ;;说明:
  422. ;;参数:o:
  423. ;;返回:
  424. (defun Zgx:Get:LeftInsuThick(o)
  425.   (or
  426.     (eq (type o)'VLA-OBJECT)
  427.     (setq o(vlax-ename->vla-object o))  
  428.   )
  429.   (vlax-get-property o 'LeftInsuThick)
  430. )

  431. ;;说明:
  432. ;;参数:o:
  433. ;;返回:
  434. (defun Zgx:Set:LeftInsuThick(o value)
  435.   (or
  436.     (eq (type o)'VLA-OBJECT)
  437.     (setq o(vlax-ename->vla-object o))  
  438.   )
  439.   (vlax-put-property o 'LeftInsuThick value)
  440. )

  441. ;;说明:
  442. ;;参数:o:
  443. ;;返回:
  444. (defun Zgx:Get:LeftLayer(o)
  445.   (or
  446.     (eq (type o)'VLA-OBJECT)
  447.     (setq o(vlax-ename->vla-object o))  
  448.   )
  449.   (vlax-get-property o 'LeftLayer)
  450. )

  451. ;;说明:
  452. ;;参数:o:
  453. ;;返回:
  454. (defun Zgx:Set:LeftLayer(o value)
  455.   (or
  456.     (eq (type o)'VLA-OBJECT)
  457.     (setq o(vlax-ename->vla-object o))  
  458.   )
  459.   (vlax-put-property o 'LeftLayer value)
  460. )

  461. ;;说明:
  462. ;;参数:o:
  463. ;;返回:
  464. (defun Zgx:Get:LeftSpace(o)
  465.   (or
  466.     (eq (type o)'VLA-OBJECT)
  467.     (setq o(vlax-ename->vla-object o))  
  468.   )
  469.   (vlax-get-property o 'LeftSpace)
  470. )


  471. ;;说明:
  472. ;;参数:o:
  473. ;;返回:
  474. (defun Zgx:Get:LeftWidth(o)
  475.   (or
  476.     (eq (type o)'VLA-OBJECT)
  477.     (setq o(vlax-ename->vla-object o))  
  478.   )
  479.   (vlax-get-property o 'LeftWidth)
  480. )

  481. ;;说明:
  482. ;;参数:o:
  483. ;;返回:
  484. (defun Zgx:Set:LeftWidth(o value)
  485.   (or
  486.     (eq (type o)'VLA-OBJECT)
  487.     (setq o(vlax-ename->vla-object o))  
  488.   )
  489.   (vlax-put-property o 'LeftWidth value)
  490. )

  491. ;;说明:
  492. ;;参数:o:
  493. ;;返回:
  494. (defun Zgx:Get:Linetype(o)
  495.   (or
  496.     (eq (type o)'VLA-OBJECT)
  497.     (setq o(vlax-ename->vla-object o))  
  498.   )
  499.   (vlax-get-property o 'Linetype)
  500. )

  501. ;;说明:
  502. ;;参数:o:
  503. ;;返回:
  504. (defun Zgx:Set:Linetype(o value)
  505.   (or
  506.     (eq (type o)'VLA-OBJECT)
  507.     (setq o(vlax-ename->vla-object o))  
  508.   )
  509.   (vlax-put-property o 'Linetype value)
  510. )

  511. ;;说明:
  512. ;;参数:o:
  513. ;;返回:
  514. (defun Zgx:Get:LinetypeScale(o)
  515.   (or
  516.     (eq (type o)'VLA-OBJECT)
  517.     (setq o(vlax-ename->vla-object o))  
  518.   )
  519.   (vlax-get-property o 'LinetypeScale)
  520. )

  521. ;;说明:
  522. ;;参数:o:
  523. ;;返回:
  524. (defun Zgx:Set:LinetypeScale(o value)
  525.   (or
  526.     (eq (type o)'VLA-OBJECT)
  527.     (setq o(vlax-ename->vla-object o))  
  528.   )
  529.   (vlax-put-property o 'LinetypeScale value)
  530. )

  531. ;;说明:
  532. ;;参数:o:
  533. ;;返回:
  534. (defun Zgx:Get:Lineweight(o)
  535.   (or
  536.     (eq (type o)'VLA-OBJECT)
  537.     (setq o(vlax-ename->vla-object o))  
  538.   )
  539.   (vlax-get-property o 'Lineweight)
  540. )

  541. ;;说明:
  542. ;;参数:o:
  543. ;;返回:
  544. (defun Zgx:Set:Lineweight(o value)
  545.   (or
  546.     (eq (type o)'VLA-OBJECT)
  547.     (setq o(vlax-ename->vla-object o))  
  548.   )
  549.   (vlax-put-property o 'Lineweight value)
  550. )

  551. ;;说明:
  552. ;;参数:o:
  553. ;;返回:
  554. (defun Zgx:Get:LSurfaceArea(o)
  555.   (or
  556.     (eq (type o)'VLA-OBJECT)
  557.     (setq o(vlax-ename->vla-object o))  
  558.   )
  559.   (vlax-get-property o 'LSurfaceArea)
  560. )


  561. ;;说明:
  562. ;;参数:o:
  563. ;;返回:
  564. (defun Zgx:Get:Material(o)
  565.   (or
  566.     (eq (type o)'VLA-OBJECT)
  567.     (setq o(vlax-ename->vla-object o))  
  568.   )
  569.   (vlax-get-property o 'Material)
  570. )

  571. ;;说明:
  572. ;;参数:o:
  573. ;;返回:
  574. (defun Zgx:Set:Material(o value)
  575.   (or
  576.     (eq (type o)'VLA-OBJECT)
  577.     (setq o(vlax-ename->vla-object o))  
  578.   )
  579.   (vlax-put-property o 'Material value)
  580. )

  581. ;;说明:
  582. ;;参数:o:
  583. ;;返回:
  584. (defun Zgx:Get:ObjectID(o)
  585.   (or
  586.     (eq (type o)'VLA-OBJECT)
  587.     (setq o(vlax-ename->vla-object o))  
  588.   )
  589.   (vlax-get-property o 'ObjectID)
  590. )


  591. ;;说明:
  592. ;;参数:o:
  593. ;;返回:
  594. (defun Zgx:Get:ObjectID32(o)
  595.   (or
  596.     (eq (type o)'VLA-OBJECT)
  597.     (setq o(vlax-ename->vla-object o))  
  598.   )
  599.   (vlax-get-property o 'ObjectID32)
  600. )


  601. ;;说明:
  602. ;;参数:o:
  603. ;;返回:
  604. (defun Zgx:Get:ObjectName(o)
  605.   (or
  606.     (eq (type o)'VLA-OBJECT)
  607.     (setq o(vlax-ename->vla-object o))  
  608.   )
  609.   (vlax-get-property o 'ObjectName)
  610. )


  611. ;;说明:
  612. ;;参数:o:
  613. ;;返回:
  614. (defun Zgx:Get:OwnerID(o)
  615.   (or
  616.     (eq (type o)'VLA-OBJECT)
  617.     (setq o(vlax-ename->vla-object o))  
  618.   )
  619.   (vlax-get-property o 'OwnerID)
  620. )


  621. ;;说明:
  622. ;;参数:o:
  623. ;;返回:
  624. (defun Zgx:Get:OwnerID32(o)
  625.   (or
  626.     (eq (type o)'VLA-OBJECT)
  627.     (setq o(vlax-ename->vla-object o))  
  628.   )
  629.   (vlax-get-property o 'OwnerID32)
  630. )


  631. ;;说明:
  632. ;;参数:o:
  633. ;;返回:
  634. (defun Zgx:Get:PlotStyleName(o)
  635.   (or
  636.     (eq (type o)'VLA-OBJECT)
  637.     (setq o(vlax-ename->vla-object o))  
  638.   )
  639.   (vlax-get-property o 'PlotStyleName)
  640. )

  641. ;;说明:
  642. ;;参数:o:
  643. ;;返回:
  644. (defun Zgx:Set:PlotStyleName(o value)
  645.   (or
  646.     (eq (type o)'VLA-OBJECT)
  647.     (setq o(vlax-ename->vla-object o))  
  648.   )
  649.   (vlax-put-property o 'PlotStyleName value)
  650. )

  651. ;;说明:
  652. ;;参数:o:
  653. ;;返回:
  654. (defun Zgx:Get:Radius(o)
  655.   (or
  656.     (eq (type o)'VLA-OBJECT)
  657.     (setq o(vlax-ename->vla-object o))  
  658.   )
  659.   (vlax-get-property o 'Radius)
  660. )

  661. ;;说明:
  662. ;;参数:o:
  663. ;;返回:
  664. (defun Zgx:Set:Radius(o value)
  665.   (or
  666.     (eq (type o)'VLA-OBJECT)
  667.     (setq o(vlax-ename->vla-object o))  
  668.   )
  669.   (vlax-put-property o 'Radius value)
  670. )

  671. ;;说明:
  672. ;;参数:o:
  673. ;;返回:
  674. (defun Zgx:Get:RightInsuThick(o)
  675.   (or
  676.     (eq (type o)'VLA-OBJECT)
  677.     (setq o(vlax-ename->vla-object o))  
  678.   )
  679.   (vlax-get-property o 'RightInsuThick)
  680. )

  681. ;;说明:
  682. ;;参数:o:
  683. ;;返回:
  684. (defun Zgx:Set:RightInsuThick(o value)
  685.   (or
  686.     (eq (type o)'VLA-OBJECT)
  687.     (setq o(vlax-ename->vla-object o))  
  688.   )
  689.   (vlax-put-property o 'RightInsuThick value)
  690. )

  691. ;;说明:
  692. ;;参数:o:
  693. ;;返回:
  694. (defun Zgx:Get:RightLayer(o)
  695.   (or
  696.     (eq (type o)'VLA-OBJECT)
  697.     (setq o(vlax-ename->vla-object o))  
  698.   )
  699.   (vlax-get-property o 'RightLayer)
  700. )

  701. ;;说明:
  702. ;;参数:o:
  703. ;;返回:
  704. (defun Zgx:Set:RightLayer(o value)
  705.   (or
  706.     (eq (type o)'VLA-OBJECT)
  707.     (setq o(vlax-ename->vla-object o))  
  708.   )
  709.   (vlax-put-property o 'RightLayer value)
  710. )

  711. ;;说明:
  712. ;;参数:o:
  713. ;;返回:
  714. (defun Zgx:Get:RightSpace(o)
  715.   (or
  716.     (eq (type o)'VLA-OBJECT)
  717.     (setq o(vlax-ename->vla-object o))  
  718.   )
  719.   (vlax-get-property o 'RightSpace)
  720. )


  721. ;;说明:
  722. ;;参数:o:
  723. ;;返回:
  724. (defun Zgx:Get:RightWidth(o)
  725.   (or
  726.     (eq (type o)'VLA-OBJECT)
  727.     (setq o(vlax-ename->vla-object o))  
  728.   )
  729.   (vlax-get-property o 'RightWidth)
  730. )

  731. ;;说明:
  732. ;;参数:o:
  733. ;;返回:
  734. (defun Zgx:Set:RightWidth(o value)
  735.   (or
  736.     (eq (type o)'VLA-OBJECT)
  737.     (setq o(vlax-ename->vla-object o))  
  738.   )
  739.   (vlax-put-property o 'RightWidth value)
  740. )

  741. ;;说明:
  742. ;;参数:o:
  743. ;;返回:
  744. (defun Zgx:Get:RSurfaceArea(o)
  745.   (or
  746.     (eq (type o)'VLA-OBJECT)
  747.     (setq o(vlax-ename->vla-object o))  
  748.   )
  749.   (vlax-get-property o 'RSurfaceArea)
  750. )


  751. ;;说明:
  752. ;;参数:o:
  753. ;;返回:
  754. (defun Zgx:Get:Scale(o)
  755.   (or
  756.     (eq (type o)'VLA-OBJECT)
  757.     (setq o(vlax-ename->vla-object o))  
  758.   )
  759.   (vlax-get-property o 'Scale)
  760. )

  761. ;;说明:
  762. ;;参数:o:
  763. ;;返回:
  764. (defun Zgx:Set:Scale(o value)
  765.   (or
  766.     (eq (type o)'VLA-OBJECT)
  767.     (setq o(vlax-ename->vla-object o))  
  768.   )
  769.   (vlax-put-property o 'Scale value)
  770. )

  771. ;;说明:
  772. ;;参数:o:
  773. ;;返回:
  774. (defun Zgx:Get:ShadowType(o)
  775.   (or
  776.     (eq (type o)'VLA-OBJECT)
  777.     (setq o(vlax-ename->vla-object o))  
  778.   )
  779.   (vlax-get-property o 'ShadowType)
  780. )

  781. ;;说明:
  782. ;;参数:o:
  783. ;;返回:
  784. (defun Zgx:Set:ShadowType(o value)
  785.   (or
  786.     (eq (type o)'VLA-OBJECT)
  787.     (setq o(vlax-ename->vla-object o))  
  788.   )
  789.   (vlax-put-property o 'ShadowType value)
  790. )

  791. ;;说明:
  792. ;;参数:o:
  793. ;;返回:
  794. (defun Zgx:Get:StemInsulate(o)
  795.   (or
  796.     (eq (type o)'VLA-OBJECT)
  797.     (setq o(vlax-ename->vla-object o))  
  798.   )
  799.   (vlax-get-property o 'StemInsulate)
  800. )

  801. ;;说明:
  802. ;;参数:o:
  803. ;;返回:
  804. (defun Zgx:Set:StemInsulate(o value)
  805.   (or
  806.     (eq (type o)'VLA-OBJECT)
  807.     (setq o(vlax-ename->vla-object o))  
  808.   )
  809.   (vlax-put-property o 'StemInsulate value)
  810. )

  811. ;;说明:
  812. ;;参数:o:
  813. ;;返回:
  814. (defun Zgx:Get:StemInsulateThick(o)
  815.   (or
  816.     (eq (type o)'VLA-OBJECT)
  817.     (setq o(vlax-ename->vla-object o))  
  818.   )
  819.   (vlax-get-property o 'StemInsulateThick)
  820. )

  821. ;;说明:
  822. ;;参数:o:
  823. ;;返回:
  824. (defun Zgx:Set:StemInsulateThick(o value)
  825.   (or
  826.     (eq (type o)'VLA-OBJECT)
  827.     (setq o(vlax-ename->vla-object o))  
  828.   )
  829.   (vlax-put-property o 'StemInsulateThick value)
  830. )

  831. ;;说明:
  832. ;;参数:o:
  833. ;;返回:
  834. (defun Zgx:Get:Structure(o)
  835.   (or
  836.     (eq (type o)'VLA-OBJECT)
  837.     (setq o(vlax-ename->vla-object o))  
  838.   )
  839.   (vlax-get-property o 'Structure)
  840. )

  841. ;;说明:
  842. ;;参数:o:
  843. ;;返回:
  844. (defun Zgx:Set:Structure(o value)
  845.   (or
  846.     (eq (type o)'VLA-OBJECT)
  847.     (setq o(vlax-ename->vla-object o))  
  848.   )
  849.   (vlax-put-property o 'Structure value)
  850. )

  851. ;;说明:
  852. ;;参数:o:
  853. ;;返回:
  854. (defun Zgx:Get:StruHeight(o)
  855.   (or
  856.     (eq (type o)'VLA-OBJECT)
  857.     (setq o(vlax-ename->vla-object o))  
  858.   )
  859.   (vlax-get-property o 'StruHeight)
  860. )

  861. ;;说明:
  862. ;;参数:o:
  863. ;;返回:
  864. (defun Zgx:Set:StruHeight(o value)
  865.   (or
  866.     (eq (type o)'VLA-OBJECT)
  867.     (setq o(vlax-ename->vla-object o))  
  868.   )
  869.   (vlax-put-property o 'StruHeight value)
  870. )

  871. ;;说明:
  872. ;;参数:o:
  873. ;;返回:
  874. (defun Zgx:Get:StruIsArc(o)
  875.   (or
  876.     (eq (type o)'VLA-OBJECT)
  877.     (setq o(vlax-ename->vla-object o))  
  878.   )
  879.   (vlax-get-property o 'StruIsArc)
  880. )


  881. ;;说明:
  882. ;;参数:o:
  883. ;;返回:
  884. (defun Zgx:Get:Style(o)
  885.   (or
  886.     (eq (type o)'VLA-OBJECT)
  887.     (setq o(vlax-ename->vla-object o))  
  888.   )
  889.   (vlax-get-property o 'Style)
  890. )

  891. ;;说明:
  892. ;;参数:o:
  893. ;;返回:
  894. (defun Zgx:Set:Style(o value)
  895.   (or
  896.     (eq (type o)'VLA-OBJECT)
  897.     (setq o(vlax-ename->vla-object o))  
  898.   )
  899.   (vlax-put-property o 'Style value)
  900. )

  901. ;;说明:
  902. ;;参数:o:
  903. ;;返回:
  904. (defun Zgx:Get:SurfLayer(o)
  905.   (or
  906.     (eq (type o)'VLA-OBJECT)
  907.     (setq o(vlax-ename->vla-object o))  
  908.   )
  909.   (vlax-get-property o 'SurfLayer)
  910. )

  911. ;;说明:
  912. ;;参数:o:
  913. ;;返回:
  914. (defun Zgx:Set:SurfLayer(o value)
  915.   (or
  916.     (eq (type o)'VLA-OBJECT)
  917.     (setq o(vlax-ename->vla-object o))  
  918.   )
  919.   (vlax-put-property o 'SurfLayer value)
  920. )

  921. ;;说明:
  922. ;;参数:o:
  923. ;;返回:
  924. (defun Zgx:Get:TextHeight(o)
  925.   (or
  926.     (eq (type o)'VLA-OBJECT)
  927.     (setq o(vlax-ename->vla-object o))  
  928.   )
  929.   (vlax-get-property o 'TextHeight)
  930. )

  931. ;;说明:
  932. ;;参数:o:
  933. ;;返回:
  934. (defun Zgx:Set:TextHeight(o value)
  935.   (or
  936.     (eq (type o)'VLA-OBJECT)
  937.     (setq o(vlax-ename->vla-object o))  
  938.   )
  939.   (vlax-put-property o 'TextHeight value)
  940. )

  941. ;;说明:
  942. ;;参数:o:
  943. ;;返回:
  944. (defun Zgx:Get:TextStyle(o)
  945.   (or
  946.     (eq (type o)'VLA-OBJECT)
  947.     (setq o(vlax-ename->vla-object o))  
  948.   )
  949.   (vlax-get-property o 'TextStyle)
  950. )

  951. ;;说明:
  952. ;;参数:o:
  953. ;;返回:
  954. (defun Zgx:Set:TextStyle(o value)
  955.   (or
  956.     (eq (type o)'VLA-OBJECT)
  957.     (setq o(vlax-ename->vla-object o))  
  958.   )
  959.   (vlax-put-property o 'TextStyle value)
  960. )

  961. ;;说明:
  962. ;;参数:o:
  963. ;;返回:
  964. (defun Zgx:Get:TopFace(o)
  965.   (or
  966.     (eq (type o)'VLA-OBJECT)
  967.     (setq o(vlax-ename->vla-object o))  
  968.   )
  969.   (vlax-get-property o 'TopFace)
  970. )

  971. ;;说明:
  972. ;;参数:o:
  973. ;;返回:
  974. (defun Zgx:Set:TopFace(o value)
  975.   (or
  976.     (eq (type o)'VLA-OBJECT)
  977.     (setq o(vlax-ename->vla-object o))  
  978.   )
  979.   (vlax-put-property o 'TopFace value)
  980. )

  981. ;;说明:
  982. ;;参数:o:
  983. ;;返回:
  984. (defun Zgx:Get:TotalWidth(o)
  985.   (or
  986.     (eq (type o)'VLA-OBJECT)
  987.     (setq o(vlax-ename->vla-object o))  
  988.   )
  989.   (vlax-get-property o 'TotalWidth)
  990. )


  991. ;;说明:
  992. ;;参数:o:
  993. ;;返回:
  994. (defun Zgx:Get:TrueColor(o)
  995.   (or
  996.     (eq (type o)'VLA-OBJECT)
  997.     (setq o(vlax-ename->vla-object o))  
  998.   )
  999.   (vlax-get-property o 'TrueColor)
  1000. )

  1001. ;;说明:
  1002. ;;参数:o:
  1003. ;;返回:
  1004. (defun Zgx:Set:TrueColor(o value)
  1005.   (or
  1006.     (eq (type o)'VLA-OBJECT)
  1007.     (setq o(vlax-ename->vla-object o))  
  1008.   )
  1009.   (vlax-put-property o 'TrueColor value)
  1010. )

  1011. ;;说明:
  1012. ;;参数:o:
  1013. ;;返回:
  1014. (defun Zgx:Get:Usage(o)
  1015.   (or
  1016.     (eq (type o)'VLA-OBJECT)
  1017.     (setq o(vlax-ename->vla-object o))  
  1018.   )
  1019.   (vlax-get-property o 'Usage)
  1020. )

  1021. ;;说明:
  1022. ;;参数:o:
  1023. ;;返回:
  1024. (defun Zgx:Set:Usage(o value)
  1025.   (or
  1026.     (eq (type o)'VLA-OBJECT)
  1027.     (setq o(vlax-ename->vla-object o))  
  1028.   )
  1029.   (vlax-put-property o 'Usage value)
  1030. )

  1031. ;;说明:
  1032. ;;参数:o:
  1033. ;;返回:
  1034. (defun Zgx:Get:Visible(o)
  1035.   (or
  1036.     (eq (type o)'VLA-OBJECT)
  1037.     (setq o(vlax-ename->vla-object o))  
  1038.   )
  1039.   (vlax-get-property o 'Visible)
  1040. )

  1041. ;;说明:
  1042. ;;参数:o:
  1043. ;;返回:
  1044. (defun Zgx:Set:Visible(o value)
  1045.   (or
  1046.     (eq (type o)'VLA-OBJECT)
  1047.     (setq o(vlax-ename->vla-object o))  
  1048.   )
  1049.   (vlax-put-property o 'Visible value)
  1050. )

  1051. ;;说明:
  1052. ;;参数:o:
  1053. ;;返回:
  1054. (defun Zgx:Get:Volume(o)
  1055.   (or
  1056.     (eq (type o)'VLA-OBJECT)
  1057.     (setq o(vlax-ename->vla-object o))  
  1058.   )
  1059.   (vlax-get-property o 'Volume)
  1060. )

  1061. (defun c:kkk()
  1062.   (vlax-put-property
  1063.     (vlax-ename->vla-object(car(entsel)))
  1064.     'startpoint
  1065.     (vlax-3D-point(getpoint))
  1066.   )
  1067. )










[/code]

评分

参与人数 2明经币 +2 收起 理由
guosheyang + 1 赞一个!
USER2128 + 1 赞一个!

查看全部评分

"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2021-11-30 09:49 | 显示全部楼层
原码大放送,点赞收藏+2
发表于 2021-11-30 09:58 | 显示全部楼层
函数干什么用的?
发表于 2021-12-3 10:39 | 显示全部楼层
之后  这是可以不用天正插件导图?
发表于 2021-12-3 18:02 | 显示全部楼层
大神程序干嘛用的??
发表于 2021-12-5 16:28 | 显示全部楼层
大神,程序怎么用的
发表于 2021-12-8 10:10 | 显示全部楼层
这是天正的源码吗
发表于 2021-12-8 10:44 | 显示全部楼层
不明觉厉反正
发表于 2024-2-3 20:32 | 显示全部楼层
不知道怎么用,楼主能举例吗
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 10:36 , Processed in 0.466830 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表